Question

СРОЧНО
ПАСКАЛЬ
В группе 13 учеников выполняли практикум по ИКТ.массив оценок ozenka формируйте случайнвми числами из инетрвала от 0 до 5.выведите на экран номер ученика оценка,например так
Надо:найти и вывести количество учащихся,получивших оценку не ниже 4​
Найти ср.балл по группе

Answer 1

var

i,c:integer;

sum:real;

ozenka:array[1..13] of integer;

begin

c:=0;

randomize;

writeln('Ученик | оценка ');

for i:=1 to 13 do begin

ozenka[i]:=random(0,5);

sum:=sum+ozenka[i];

writeln(i,' | ',ozenka[i]);

end;

for i:=1 to 13 do begin

if ozenka[i]>=4 then

c:=c+1;

end;

writeln('Количество учащихся,получивших оценку не ниже 4 = ', c);

sum:=sum / 13;

writeln('Средний балл= ', sum:0:1);

end.