Question

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

Answer 1

var
  a: array [1..10, 1..10] of integer;
  i, j: byte;
begin
randomize;
writeln(' *** Исходный массив *** ');
for i := 1 to 10 do
begin
    for j := 1 to 10 do
    begin
        a[i, j] := random(41)-20;
        write(a[i, j]:5);
    end;
    writeln;
end;
writeln('Положительные эл. главной диагонали: ');
for i := 1 to 10 do
  for j := 1 to 10 do
    if ((i = j) and (a[i, j] > 0)) then
      write(a[i, j], ' ');
end.