В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали

@дракоша · Регистрация: 31.05.2017

В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали.

Проверьте,пожалуйста

Pascal

var
  a:array[1..5,1..5] of integer;
  i,j,k:integer;
  sum:integer;
begin
if i < j
then begin
sum:= a[i,j];
inc(k);
end;
  randomize;
  sum:=0;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
      begin
        a[i,j]:=random(8)+2;
        write(' ',a[i,j],' ');
      end;
      writeln;
    end;
  writeln;
  for j:=1 to 5 do
    begin
    sum:=0;
      for i:=1 to 5 do
          sum:=sum+a[i,j];
      write(sum,' ');
    end;
  readln;
End.

@Zwelenewskiy · 05.06.2017, 18:45

27 строка

Pascal

1 2	if i < j then sum+= a[i,j];

Опции темы