Дана матрица 8 на 5, заполненная случайными числами от 0 до 10. Нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.

Var

i, j, k:integer;

a:array[1 ... 5,1 ... 8]of integer;

begin

writeln ('Исходная матрица:') ;

for i:=1 to 5 do

begin

for j:=1 to 8 do

begin

a[i, j]:=random (11) ;

write (a[i, j]:3) ;

end;

writeln;

end;

writeln ('Преобразованная матрица:') ;

for i:=1 to 5 do

begin

for j:=1 to 8 do

begin

if j=3 then a[i, 3]:=a[i, 3]+a[i, 6];

write (a[i, j]:3) ;

end;

writeln;

end;

end.