ZADANIE1

​​program zadanie1; var a:array[1..100] of integer; b:array[1..100] of string; i,n,k,l,max:integer; begin writeln('Zadajte pocet sutaziacich'); readln(n); for i:=1 to n do begin writeln('Zadaj meno'); readln(b[i]); writeln('Zadaj hodnotu skoku'); readln(a[i]); end; max:=0; for i:=1 to n do begin if a[i]>max then begin max:=a[i]; k:=i; end; end; writeln; writeln('Vyhral ',b[k],' a ziskal ',max); readln; end.