• Помогите с информатикой,пожалуйстапожалуйста
    дана действительная квадратная матрица порядка n
    Преобразовать матрицу по правилу : строку с номером n сделать столбцом с номером n, а столбец с номером n cделать строкой с номером n

Ответы 1

  • var matrix1:array [,] of real; n:integer; tmp:real;begin  write('Введи размерность матрицы:');  readln(n);  matrix1:=new real[n,n];  for var i:=0 to n-1 do  begin    for var j:=0 to n-1 do    begin      matrix1[i,j]:=Random(100);      write(matrix1[i,j]:4);    end;    writeln;  end;  writeln('Поменяли:');  for var j:=0 to n-1 do  begin      tmp:=matrix1[j,n-1];      matrix1[j,n-1]:=matrix1[n-1,j];      matrix1[n-1,j]:=tmp;  end;  for var i:=0 to n-1 do begin       for var j:=0 to n-1 do            write(matrix1[i,j]:4);       writeln;  end; end.
    • Автор:

      kaeshbk
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years