Напишите пожалуйста программу на Pascal ABC. Имеются данные по оценкам за контрольную работу 10 учащихся. Написать программу, определяющую, сколько учащихся имеют высшую оценку (5).
Ответ
Автор - sillyjoker29
const N=10; var N, a, c: integer; begin for i:=1 to N do begin write ('оценка='); read (a); end; c:=0; for i:=1 to N do begin if a=5 then begin c:=c+1; end; end; write (c); end.