Технический форум - Обработка двумерных массивов

Выкладываю полное решение, на его основе вы можете построить решение и остальных ваших задач

Код:

uses crt;

var v: array[1..15,1..10] of integer;

res: array[1..10] of integer;

i,j: integer;

begin

randomize;

{заполнение массива случайными значениями}

for i:=1 to 10 do

for j:=1 to 15 do

v[j,i]:=random(50)-30;

{инициализация массива результатов суммирования}

for i:=1 to 10 do

rez[i]:=0;

{обработка массива и формирование результатов вычислений}

for i:=1 to 10 do begin

for j:=1 to 15 do begin

rez[i]:=rez[i]+v[j,i];

write(v[j,i],' '); end;

writeln; end;

for i:=1 to 10 do

write(rez[i],' ');

readln;

end.