Question

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

Answer 1

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.

Answer 2

Исходная матрица:

3 7 2 5 8 1 9 4 2 6 0 5 3 7 10 6 8 1 4 9 7 2 5 3 1 4 0 9 8 2 2 3 6 9 4 5 1 8 0 7

Матрица с добавленным столбцом:

3 7 2 5 8 6 1 9 4 2 6 6 0 5 3 7 10 6 6 8 1 4 9 6 7 2 5 3 1 6 4 0 9 8 2 6 2 3 6 9 4 6 5 1 8 0 7 6