Паскаль. В таблицу заносятся результаты выступление спортсменов в трёх попытках.

Паскаль. В таблицу заносятся результаты выступление спортсменов в трёх попытках.Победитель определяется по сумме трёх попыток. Напечатать лучший результат и номер чемпиона
Гость
Ответ(ы) на вопрос:
Гость
Программа: const n=10; m=3; var a:array[1..n,1..m] of integer; i,j,max,imax:integer; begin Randomize; writeln('Результаты соревнований:'); for i:=1 to n do  begin  write(i:2,': ');  for j:=1 to m do   begin    a[i,j]:=random(20)+50;    write(a[i,j]:4);   end;   writeln;  end; max:=a[1,1]; imax:=1; for i:=1 to n do  for j:=1 to m do   if a[i,j]>max then begin max:=a[i,j]; imax:=i; end; writeln('Лучший результат = ',max,'  Номер чемпиона = ',imax); end. Пример: Результаты соревнований:  1:   67  51  63  2:   65  53  51  3:   56  60  65  4:   60  65  58  5:   67  55  56  6:   51  64  69  7:   66  64  54  8:   50  52  54  9:   67  63  65 10:   51  55  60 Лучший результат = 69  Номер чемпиона = 6
Не нашли ответ?
Ответить на вопрос
Похожие вопросы