Напечататьфамилию чемпиона и его результат.
uses crt-
vari,max,size:integer-
— — — winer:string-
nam:array[1..10] ofstring-
bal:array[1..10] ofinteger-
begin
clrscr-
writeln(‘Введите кол-во участников соревнования’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Фамилия участника’)-
readln(nam[i])-
writeln(‘Его балл’)-
readln(bal[i])-
end-
max := bal[1]-
writeln(‘Участники’)-
FOR i := 1 TO sizedo
begin
writeln(nam[i],’ Балл ‘,bal[i])-
end-
FOR i := 1 TO sizedo
begin
IF bal[i] >- maxTHEN
-begin
-max := bal[i]- winer:= nam[i]-
-end-
-end-
writeln(winer, ‘ победитель. Баллов’, max)-
end.