Предмет: Информатика,
автор: ydod11
В классе 20 учеников писали диктант по русскому языку Напишите программу в паскале подсчитывающую количество двоек, троек, четвёрок и пятёрок полученных за диктант
Пожалуйста через рандом и не используя case
Заранее спасибо
Ответы
Автор ответа:
0
var
d : array of integer := new integer[20];
b : array of integer := new integer[5];
begin
d := arrRandom(20, 1, 5);
for var i := 0 to 19 do b[d[i]-1] += 1;
for var i := 1 to 4 do writeln(i+1, ' получили ', b[i], ' учеников');
end.
Похожие вопросы
Предмет: Математика,
автор: artur3102russ
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: glebnuzhniotveti
Предмет: Математика,
автор: scherbackovaann