В классе N учеников писали проверочную работу по математике результаты проверочные работы...

Question

В классе N учеников писали проверочную работу по математике результаты проверочные работы подводились в оценок Напишите программу подсчитывающую Сколько человек получили пятёрку тройку двойку данные в массив вводится случайным образом в диапазоне от 3 до 5 количество учеников не превышает 30 человек значение элементов массива вывести на экран

Answer 1

//PascalAbc.net V 3.3

const n = 30;

var a:array[1..n] of integer;

n3,n4,n5,i:integer;

begin

for i:=1 to n do begin

  a[i]:=random(3,5);

  if a[i]=3 then inc(n3);

  if a[i]=4 then inc(n4);

  if a[i]=5 then inc(n5); 

end;

writeln('3 - ',n3);

writeln('4 - ',n4);

writeln('5 - ',n5);

print(a);

end.