С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2) Программа Паскаль
С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2)
Программа Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы