В классе 20 учеников писали диктант по русскому языку. Напишите программу, подсчитывающую количество двоек, троек, четверок и пятерок, полученных за диктант.
Ответ
program diktant;
var
а: array [1..20] of integer; // Исходные данные
i: integer; // Счетчик цикла
k2, kЗ, k4, k5: integer; // Результат
begin
randomize;
for i:=1 to 20 do
a[i]:=random(4)+2;
for i:=1 to 20 do
writeln (‘а[‘, i, ‘] = ‘, a[i]);
k2:=0;
k3:=0;
k4:=0;
for i:=1 to 20 do
begin
if a[i]=2 then k2:=k2+1;
if а[i]=3 then k3:=k3+1;
if a[i]=4 then k4:=k4+1;
end;
k5:=20-(k2+k3+k4);
writeln (‘k2 = ‘, k2);
writeln (‘k3 = ‘, k3);
writeln (‘k4 = ‘, k4);
writeln (‘k5 = ‘, k5);
end.