Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.

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