В классе 35 человек. Последовательно вводятся оценки учеников за контрольную работу. Найдите средний балл и количество пятёрок. PASCAL
С помощью алгоритма for ... to ... do
С помощью алгоритма for ... to ... do
More Questions From This User See All
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('->',35);
var s:=0;
var k:=0;
for var i:=0 to 34 do begin
s+=a[i];
if a[i]=5 then k+=1
end;
Writeln('Средний балл ',s/35:4:2);
Writeln('Количество пятерок- ',k)
end.
Пример
-> 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний балл 3.34
Количество пятерок- 5