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

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

Question

Информатика

Руся

4 июня, 22:46

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

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

+5

Ответы (1)

Знаешь ответ?

Генюля · 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.