Дана действительная квадратная матрица порядка n. Преобразовать матрицу по следующему правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n- строкой с номером n — Pascal(Паскаль)

program pr1;
const
  n=5;
var
  a: array[1..n,1..n] of integer;
  i,j,x:integer;
begin
  writeln('vvedite matricu');
  for i:=1 to n do
    for j:=1 to n do
    begin
      write('a[',i,',',j,']:=');
      readln(a[i,j])
    end;
  for i:=1 to n do
  begin
    x:=a[n,i];
    a[n,i]:=a[i,n];
    a[i,n]:=x;
  end;
  writeln('Matrica imeet vid',x);
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

Leave a Comment

58 − 52 =