Составьте програму для подсчета количества учащихся в классе, возраст которых равен 15 лет, если известен возраст каждого учащегося.
(составить массив)

1

Ответы и объяснения

2012-05-18T13:53:57+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array[1..100] of integer;

i,s,n:integer;

Begin

  write('Кол-во учеников = ');

  read(n);

  for i := 1 to n do

    write('Ввеите возраст следующего ученика _');

    read(a[i]);

    if a[i]=15 then s:=s+1;

  end;

  writeln('s=',s);

End.