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

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

Не могу понять,как сделать сложение по строкам,вот что у меня есть:

Pascal

var
  a:array[1..5,1..5] of integer;
  i,j:integer;
  sum:integer;
begin
  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 · 01.06.2017, 14:33

Сообщение от дракоша

вычислить сумму и количество элементов выше главной диагонали

k - количество, s - сумма

Pascal

if i < j
then begin
s+= a[i,j];
inc(k);
end;

Добавлено через 56 секунд
Так что Вам нужно? Сумма и количество элементов выше главной диагонали или сумма по строкам?

@дракоша · 01.06.2017, 14:39 **[ТС]**

Сумма и количество элементов выше главной диагонали

@Zwelenewskiy · 01.06.2017, 20:17

дракоша, тогда написал то,что нужно. Это главная часть

@дракоша 1 / 1 / 0 Регистрация: 31.05.2017 Сообщений: 10 Записей в блоге: 1
	01.06.2017, 14:39 [ТС]	3
	Сумма и количество элементов выше главной диагонали 0

@Zwelenewskiy 128 / 126 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	01.06.2017, 20:17	4
	дракоша, тогда написал то,что нужно. Это главная часть 1

Опции темы

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

Решение