Напишите пожалуйста программу на Pascal ABC. Имеются данные по оценкам за контрольную работу 10 учащихся. Написать программу, определяющую, сколько учащихся имеют высшую оценку (5).
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.