Дана матрица 8 на 5, заполненная случайными числами от 0 до 10.Нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.
Дана матрица 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.
Не нашли ответ?
Похожие вопросы