Напишите пожалуйста программку на Pascal ABC. Имеются данные по оценкам за

Напишите пожалуйста программку на Pascal ABC. Имеются данные по оценкам за контрольную работу 10 учащихся. Написать программку, определяющую, сколько учащихся имеют высшую оценку (5).

Задать свой вопрос
1 ответ
Const N=10;
var N, a, c: integer;
begin
for i:=1 to N do begin
write ('оценка='); read (a);
end;
c:=0;
for i:=1 to N do begin
if a=5 then begin
c:=c+1;
end;
end;
write (c);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт