Меню сайта

Задача №3

Напечататьфамилию победителя.

uses crt-

vari,size,max:integer-

nam:array[1..10] ofstring-

bal:array[1..10] ofinteger-

begin

clrscr-

writeln(‘Сколько участников олимпиады’)-

readln(size)-

writeln(‘Максималтный балл’)-

readln(max)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Фамилия участника’)-

readln(nam[i])-

writeln(‘Его балл’)-

readln(bal[i])

end-

clrscr-

writeln(‘Участники’)-

FOR i := 1 TO sizedo

begin

writeln(nam[i],’ Балл ‘,bal[i])-

end-

FOR i := 1 TO sizedo

begin

IF bal[i] = maxTHEN writeln(nam[i], ‘ победитель, баллов-‘,max)-

end-

end.

Категория: Общие | Дата: 28.12.12

Меню раздела
Блок