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

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

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.