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.

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