Меню сайта

Задача №18

Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований.


Program zap_18-

Uses Crt-

Const n=10-

Type strel = record

fio:string[20]-

god,rez:integer-

end-

Var a : array[1..n] of strel-

i ,k:byte-

max:integer-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите фио’)-

Readln(fio)-

Writeln(‘ Введите год рождения’)-

Readln(god)-

Writeln(‘ Введите результат стрельбы’)-

Readln(rez)-

End-

Max:=a[1].rez- k:=1-

for i:=2 to n do

with a[I] do

if max&lt-rez then -begin max:=rez- k:=I- end-

Writeln(‘Победитель ‘,a[k].rez)-

Readln-

end.

Категория: Записи | Дата: 23.01.13

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