Известны
оценки по химии каждого ученика класса. Определить количество пятерок и
количество двоек.Без использования массива

Uses crt;
var five,two,a,N,i: integer;
begin
clrscr;
five:=0;
two:=0;
readln (N);  // кол-во учеников
i:=1 to N do
begin
read (a);  // ввод оценок через пробел
case a of    // выбор и подсчёт кол-ва
2: two:=two+1;
5: five:=five+1;
end;
end;
writeln (Five: ,five); // вывод результата
writeln (Two: ,two);
readln ();
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.