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

@Serjant0007 · Регистрация: 21.06.2010

Author24 — интернет-сервис помощи студентам

Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали.
Нужно чтобы после ввода всех элементов матрицы он показал как она выглядит, т.е. элементы по столбцам и строкам. а у меня только в столбик

Pascal

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.

@Ev[G]eN · 25.03.2012, 14:04

Pascal

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.

	25.03.2012, 14:04