Знамениты результаты экзамена 15 студентов одной группы по информатике. Определить,

Знамениты результаты экзамена 15 студентов одной группы по информатике. Определить, сколько студентов сдали экзамен на 4 и сколько на 5.
(PASCAL)
Безотлагательно!!!!!!!!!!!!

Задать свой вопрос
Геннадий Зубчевский
Т.е. на входе у нас 15 чисел, я верно понимаю? И если да, то как они вводятся - в одной строке либо в столбик?
Генка Елуфимов
да,можно в столбик)
1 ответ

var a,i,k,m:integer;

BEGIN

k:=0;

m:=0;

for i:=1 to 15 do begin

readln(a);

if (a=4) then k:=k+1;

if (a=5) then m:=m+1;

end;

writeln(k,' студентов сдали экзамен на "4".');

writeln(m,' студентов сдали экзамен на "5".');

end.

Виолетта Марокова
Спасибо от души !!!! Самый наилучший
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт