Zaznamenanie žiakov do jednorozmerného poľa (Zadanie 1)

Program zadanie1;

Uses CRT;

var n,i,max:integer;

v: array [1..100] of integer;

m: array [1..100] of string;

Begin

ClrScr;

WriteLn('Kolko sutaziacich sa zucastnilo sutaze?');

ReadLn(n);

WriteLn('Zadaj meno a vykon sutaziacich.');

for i:=1 to n do begin

ReadLn(m[i],v[i]);

if v[i]>max then

max:=v[i];

end;

WriteLn('Vitazom sutaze v skoku do dialky je ',m[i],' s vykonom ',max,' cm.');

ReadLn;

end.