Работа 3.9 Упр.1 ГДЗ Семакин 10 класс (Информатика)

Задача

Из данного списка спортсменов получить данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются спортом.

Подробный ответ

Нужно просмотреть список спортсменов и посчитать, сколько из них занимается плаванием. Для этого удобно хранить данные о каждом спортсмене в записи и затем перебрать весь массив записей.

В программе вводятся:

возраст спортсмена;
вид спорта;
сколько лет он занимается спортом;
фамилия.

Затем счётчик S увеличивается на 1 для каждого спортсмена, у которого дисциплина равна ‘плавание’.

program sport;
type Sport = record
  Family, discipline: string[20];
  vozrast, letVspore: integer;
end;
var A: array [1..3] of Sport;
    i, n, S: integer;
begin
  write(‘Vvedite kolichestvo 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 kolichestvo let v sporte’);
      readln(letVspore);
      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.