Алгоритмы решить номер 3 и номер 5

Question

Информатика: Алгоритмы решить номер 3 и номер 5

wehhc · Accepted Answer

Program pr;
uses crt;

Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;

Begin

N:=5;
Writeln('Введите элементы матрицы');
for i:=1 to N do
  for j:=1 to N do
  readln(mas[i,j]);

Writeln();
Writeln('Исходная матрица');
  for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;

{Объмен}

  for j:=1 to N do
  Begin
  buf:=mas[N,j];
  mas[N,j]:=mas[1,j];
  mas[1,j]:=buf
  end;

Writeln();
Writeln('Результирующая матрица');

for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
  end;

readln;
end.

MOGZ ответил