В классе 20 учеников писали диктант по русскому языку. Напишите программу, подсчитывающую количество двоек

В классе 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.

Опубликовано: 15.11.2019 Обновлено: 15.11.2019
Поделись с друзьями

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

11 − шесть =