Предмет: Информатика, автор: Fibi200

Напишите программу для решения следующей задачи.

На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Если хотя бы один из учеников правильно решил все задачи, выведите YES, иначе выведите NO.

Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров.
(Pascal)

антагонист: правильность решения вводиться вами?

антагонист: и на каком языке писать программу

антагонист: так понятнее, спасибо.

Ответы

Автор ответа: антагонист

var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.

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

Fibi200: Спасибо большое

антагонист: вы не отметите мой ответ как лучший?

антагонист: буду признателен

Fibi200: Я бы с радостью,но не знаю как

антагонист: ну, ничего страшного.

антагонист: так или иначе, я вам помог

Fibi200: и я вам признательна за это