Question

С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2)

Программа Паскаль

Answer 1

program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
end.