Program zap_3-
Const n=10-
Type sportsmen = record
fio : string[40] —
rost:real-
ves:integer- —
end-
Var sp : sportsmen — —
i, j, kol, s : integer- sr : real-
Begin
kol:=0- —
With sp do —
For i:=1 to n do —
begin
Write (‘ —введите ФИО -‘, i ,’ ‘)-
Readln (fio)-
write ( ‘введите рост: ‘ )-
readln ( rost )-
write ( ‘введите вес: -‘ )-
readln ( ves )-
if ves>-70 then kol:=kol+1-
end-
writeln ( ‘ —количество спортсменов, чей вес превышает -‘, kol )-
readln-
end.