В группе учится n учащихся. Определить самого высокого ученика. Вывести его рост и порядковый номер по списку.
В группе учится n учащихся. Определить самого высокого ученика. Вывести его рост и порядковый номер по списку.
Гость
Ответ(ы) на вопрос:
ГостьProgram rost; uses crt; const n=20; Var nomer,rost_uch,i:integer; a:array[1..n] of integer; Begin For i:=1 to n do Begin Write(' Рост ',i,'-ого ученика = '); Readln(a[i]); End; nomer:=1; rost_uch:=a[1]; For i:=2 to n do If rost_uch
Не нашли ответ?
Похожие вопросы