Danyka47

31.07.2020 20:11 •  Информатика

Даю 50+

Переведите код с Паскаля на С++

uses crt;

const nmax=20;

var a:array[0..nmax,0..nmax] of integer;

m,n,i,j,imx:byte;

mx,sm:integer;

begin

clrscr;

randomize;

repeat

write('Количество спортсменов до ',nmax,' n=');

readln(n);

until n in [1..nmax];

repeat

write('Количество попыток до ',nmax,' m=');

readln(m);

until n in [1..nmax];

writeln('Введите построчно через пробел результаты каждого спортсмена');

writeln('После каждой строки нажать Enter');

writeln('Таблица результатов:');

for i:=0 to n-1 do

for j:=0 to m-1 do

read(a[i,j]);

readln;

writeln;

mx:=0;imx:=0;

for i:=0 to n-1 do

begin

sm:=0;

for j:=0 to m-1 do

sm:=sm+a[i,j];

if sm>mx then

begin

mx:=sm;

imx:=i;

end;

end;

write('Максимальная сумма попыток=',mx,' у спортсмена ',imx+1);

readln

end.