В двумерном массиве вычислить сумму элементов каждого столбца

@dibar · Регистрация: 03.03.2010

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

В двумерном массиве вычислить сумму элементов каждого столбца отдельно и так же отдельно вывести эти суммы на экран.

Спасибо.

@RAIDER_55 · 05.05.2010, 20:04

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.

@dibar · 05.05.2010, 20:19 **[ТС]**

Большое спасибо

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
		1
	В двумерном массиве вычислить сумму элементов каждого столбца 05.05.2010, 19:37. Показов 5097. Ответов 2 Метки нет (Все метки) В двумерном массиве вычислить сумму элементов каждого столбца отдельно и так же отдельно вывести эти суммы на экран. Спасибо. 0

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
	05.05.2010, 20:19 [ТС]	3
	Большое спасибо 0

В двумерном массиве вычислить сумму элементов каждого столбца

Решение