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

N человек сдали экзамен. Вводя в цикле их оценки, определить количество повышенных оценок (4 и 5) Pascal

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

Var n,m,k,i:integer; 
begin
write(n = ); readln(n);
k:=0;
for i:=1 to n do
  begin
 write(i,-я оценка = ); readln(m);
 if m>=4 then k:=k+1;
 end;
writeln(k = ,k);
end.

Пример:
n = 5
1-я оценка = 3
2-я оценка = 4
3-я оценка = 5
4-я оценка = 2
5-я оценка = 4
k = 3