Изветсны оценки по информатике 15 студентов группы. Сформировать случайным образом оценки

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

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

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт