Перевести код из Pascal на С++

@Artem4254 · Регистрация: 13.12.2018

Author24 — интернет-сервис помощи студентам

Дана вещественная матрица размером 7х4. Переставляя её строки и столбцы, добиться того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу.

Нужно перевести с Pascal на C++
Заранее огромное спасибо)

Pascal

const m=7; n=4;
var
  a: array [1..m,1..n] of Real;
  i, j, mi, mj: Integer;
  t: Real;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=-50+100*Random;
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(' ',a[i,j]:7:2); WriteLn; end;
  mi:=1; mj:=1;
  for i:=1 to m do for j:=1 to n do if a[mi,mj]<a[i,j] then begin mi:=i; mj:=j; end;
  if mi<>1 then for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[mi,j]; a[mi,j]:=t; end;
  if mj<>1 then for i:=1 to m do begin t:=a[i,1]; a[i,1]:=a[i,mj]; a[i,mj]:=t; end;
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(' ',a[i,j]:7:2); WriteLn; end;
end.

	23.05.2019, 20:04