матрица и ее главная диагональ, прошу помочь Опции

[Булавка]

необходимо проверить является ли произведение элементов главной диагонали квадратной матрицй М ( n=4)
целым числом.
я написала программу для нахождения произведения диагонали, но как проверить является ли оно целым числом?

program matrica;
uses crt;
const n=4;
var
M:array[1..n,1..n] of integer;
i,j,s;integer;
begin
writeln ('введите матрицу М');
for i:=1 to n do
for j:=1 to n do
read (M[i,j];

s:=1;
for i:=1 to n do
for j:=1 to n do
if i=j then
S:=s*M[i,j];
writeln ('s=',s:4);
readln;
end. 

[klem4]

посни пожалусто что такое 1E-6

1E-6 = 10 в минус шестой степени (погрешность)

и еще вопос-матрица у нас integer ?

M:array[1..n,1..n] of integer;



Но судя по заданию должно быть НЕ integer (вообще не целочисленный тип)

Сообщение отредактировано: klem4 - 28.05.2006 18:12

[Булавка]

я тож так подумала. только real упорно не хочет приниматся