В группе учится 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<a[i] then

   Begin

    nomer:=i;

    rost_uch:=a[i];

   End;

 Writeln('Наибольший рост ',rost_uch,' см, у ученика с порядковым номером ', nomer);

End.

//Если нужны комментарии - пишите в личку