Вклассе n учеников писали проверочную работу по - вопрос №8121905 от Sevinch123 25.01.2022 11:00

Question

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

Sevinch123 · Answer

const n = 30;

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

n3,n2,n5,i:integer;

begin

for i:=1 to n do begin

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

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

if a[i]=2 then inc(n2);

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

end;

writeln('3 - ',n3);

writeln('2 - ',n2);

writeln('5 - ',n5);

print(a);

end.