Задача 2. forj:=l toCOL-1 do. forj:=l toCOL-1 do

Задача 2

{ Вычисление суммы элементов массива (по столбцам) }

constR0W=3; { кол-во строк } C0L=5; { кол-во столбцов }

vara: array[1..ROW,1..COL] ofinteger; { массив } s: array[1..COL] ofinteger; { сумма элементов }

i,j: integer;

begin

writeln('Введите массив.');

writeln('После ввода элементов каждой строки,',

COL,' целых чисел, нажимайте <Enter>'); fori:=l toROW do{ ROW строк } begin

write('->');

forj:=l toCOL-1 do

read(a[i,j]); readln(a[i,COL]); end;

writeln('Введенный массив'); fori:-l toROW do begin

forj:=l toCOL-1 do

write(a[i,j]:4); writeln(a[i,COL]:4); end;

{ обработка }.

forj:=l toCOL do { для каждого столбца }

fori:=l toROW do{ суммируем эл-ты одного столбца } s[j]:-s[j]+a[i,j];

writeln(‘----------------‘);

for i:=1 to .....

write(s[i]:4);

writeln;

readln;

end.