Напишите программу для решения следующей . на контрольной работе по ученикам 9 класса было предложено 10 примеров. неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. сколько неудовлетворительных оценок было получено учениками? если хотя бы один из учеников правильно решил все , выведите yes, иначе выведите no. программа получает на вход количество учеников в классе n (1 ≤ n ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров. (pascal) входные данные 4 3 9 2 8 выходные данные 2 no
s:string;
begin
s:='No'; k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if a<5 then k:=k+1;
if a=10 then s:='Yes';
end;
writeln(k);
writeln(s);
end.