Program sportmans;
uses crt;
Type Sport=Record Family, discipline:string[20];
vozrast,letVsporte:integer;
end;
var A:array [1..3] of sport;
i,n,s:integer;
Begin Write ('Vvedite koli4estvo sportsmenov');
Read (n);
For i:=1 to n do
Begin Writeln ('Vvedite dannie sportsmena');
With A[i] do
begin
writeln ('Vvedite vozrast sportsmena');
readln (vozrast);
writeln ('Vvedite disciplinu');
readln (discipline);
writeln ('Vvedite koli4estvo let v sporte');
Readln (letVsporte);
Writeln ('Vvedite Family');
Readln (Family);
end;
end;
S:=0;
For i:=1 to n do
With a[i] do
If discipline = 'plavanie'
then S:=S+1;
Writeln (S);
End.
Похожие записи/страницы:
- Дано целое число в диапазоне 20-69, определяющее возраст(в годах). Вывести строку описания указанного возраста,…
- Создайте файл, содержащий записи о каждом из 20 студентов вуза следующей структуры: фамилия, имя, отчество, пол,…
- C клавиатуры вводятся размеры больших заготовок (основы) (из каких позже будут вырезаются меньшие заготовки)…
- Ввести с клавиатуры значения переменных: - ; 45,3; 65533; -0,43; B; b; 6; e; и ввести значение FALSE. Вывести на…
- Считая,что на каждой странице записной книжки указаны фамилии, начинающиеся с одной и той же буквы - индекса…
- Сформировать запись, имеющую следующую структуру. И определить:есть ли в книжке телефон данного человека;кому…
- Даны сведения о результатах сессии: ФИО студента, название четырех предметов и оценки, полученные по каждому…
- Проверить является ли квадратом по 4 точкам - Pascal(Паскаль)