Обработка двумерных массивов

[Днище]

Обработка двумерных массивов

Решите пожалуйста

 

[AlexZir]

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

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.

 

[Днище]

AlexZir, спасибо Вам большое.