Меню сайта

Задача №3

Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг.


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&gt-70 then kol:=kol+1-

end-

writeln ( ‘ —количество спортсменов, чей вес превышает -‘, kol )-

readln-

end.

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

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