Question

Изветсны оценки по информатике 15 студентов группы. Сформировать случайным образом оценки из диапазона [2; 5], вывести их на экран. Определить общую успеваемость группы по предемету

Общая_успеваемость = Количество_студентов - Количество_"2"/Количество_студентов * 100%

Answer 1

Var
i,count: integer;
a: array [1..15] of integer;
begin
randomize();
for i:=1 to 15 do
 begin
  a[i]:= 2 + random(4);
  if a[i] = 2 then count:= count + 1;
 end;
for i:=1 to 15 do write (a[i], ' ');
Writeln;
Writeln('Общая успеваемость = ', (15-count)*100/15:0:3, '%');
end.