Дана матрица состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29.сформировать одномерный массив sum(название массива) который состоит из сумм значений элементов каждого столбца .

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на Паскале на ошибки не проверял)

program dl9_aridrettnir;

var a:array [1..10,1..5] of inteher;

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

i,q,j:integer; 

begin

writeln ('Vvedit masiv ot 0 do 29');

for i:=1 to 10 do

begin

for q:=1 to 5 do begin

readln (a[i,q]);

end; end;

for i:=1 to 10 do

begin sum[i]:=0;

for q:=1 to 5 do begin

for j:=1 to 10 do begin 

sum[i]:=a[q,j]+sum[i];

end; end;end;

readln

end.