Вычислить число положительных элементов квадратной матрицы,находящихся над главной диагональю

1

Ответы и объяснения

Лучший Ответ!
2012-04-09T23:07:23+04:00

program p3;

var a:array[1..100,1..100] of integer;

      k,n,i,j:integer;

begin

k=0

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(100)-50;

for I:=1 to n do

for j:=1 to n do

if (i>j) and (a[i,j]>0)

then k:=k+1;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]);

writeln;

end;

writeln(k)

end.