Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки....

Question

Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки. ПОЖАЛУЙСТА ПОМОГИТЕ!!! На языке паскаль

Answer 1

Var x,i,s: integer;
Begin
s:=0;
for i:= 1 to 15 do
begin;
Write('Введите оценку ученика №',i,' ');
readln(x);
if (x=2) then
s:=s+1;
end;
if (s=0) then writeln('Двоек нет!') 
else writeln('Двойки есть! Всего двоек: ',s);
readln(x);
end.

//На скриншоте образец работы программы.

---