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

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

Question

Информатика

Галика

9 февраля, 02:58

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Савёл · 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.

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

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

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