Найти количество нулевых элементов, стоящих выше главной диагонали.

Serjant0007

Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали. Нужно чтобы после ввода всех элементов матрицы он показал как она выглядит, т.е. элементы по столбцам и строкам. а у меня только в столбик
Program zadacha;
Uses crt;
var 
i,j,k:integer;
m:array[1..3,1..3] of real;
begin
for i:=1 to 3 do
 for j:=1 to 3 do read(m[i,j]);
k:=0;
for i:=1 to 3 do
 for j:=1 to 3 do
Writeln(m[i,j]:3:1);
for i:=1 to 3 do
 for j:=1 to 3 do
  if (j>i) and (m[i,j]=0) then k:=k+1;
writeln('Кол-во ',k);
Readkey;
end.
1 ответ

Serjant0007

const
  n = 5;
var
  Matr: Array[1..n, 1..n] of Integer;
  Count: Integer;
  i, j: Byte;
begin
  Randomize;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(3);
      if (j > i) and (Matr[i, j] = 0) then
        Inc(Count);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln('Кол-во нулевых выше главной диагонали: ', Count);
end.