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

0 голосов
1.1k просмотров

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


Информатика (28 баллов) | 1.1k просмотров
Дан 1 ответ
0 голосов

Var
a:array [1..20] of integer;
d, t, c, p: integer;
begin
d:=0; t:=0; c:=0; p:=0;
for i:=1 to 20 do begin
writeln('Введите оценку');
read(a[i]);
if a[i]=2 then d:=d+1;
if a[i]=3 then t:=t+1;
if a[i]=4 then c:=c+1;
if a[i]=5 then p:=p+1;
end;
writeln('Пятерок -', ' ', p);
writeln('Четвёрок -', ' ', c);
writeln('Троек -', ' ', t);
writeln('Двоек -', ' ', d);
end.

(668 баллов)