var
a: array [1..20] of 2..5; //Массив оценок учеников
i: integer;
n: array [2..5] of 2..5; //Массив счетчиков оценок
begin
for i:= 2 to 5 do //Обнуляем счетчики оценок
n[i]:= 0;
for i:= 1 to 20 do //Вводим оценки учеников и считаем их
begin
writeln('Введите оценку ', i, ' ученика');
readln(a[i]);
if a[i] = 2 then n[2]:= n[2] + 1;
if a[i] = 3 then n[3]:= n[3] + 1;
if a[i] = 4 then n[4]:= n[4] + 1;
if a[i] = 5 then n[5]:= n[5] + 1;
end;
for i:= 2 to 5 do
writeln('Количество получивших ', i, ' за диктант равно: ', n[i]); {Выводим значения счетчиков}
end.
var
a: integer; //a - вводимое число
kol, s: integer; //kol - количество чисел, кратных 9, но не кратных 6; s - сумма чисел, которые меньше -15
i: integer; //Переменная для цикла
n: word;
begin
n:= 0; //Обнуляем счетчик
s:= 0; //Обнуляем сумму
writeln('Введите число n');
readln(n); //Вводим n
for i:= 1 to n do //Вводим число n раз
begin
writeln('Введите целое число');
readln(a);
if a < -15 then kol:= kol + 1; //Если число < 15, то прибавляем к счетчику 1
if (a mod 9 = 0) and (a mod 6 <> 0) then s:= s + a; //Если число кратно 9, но не кратно 6, то прибавляем это число к сумме
end;
writeln('Количество чисел, которые меньше -15: ', kol); {Выводим количество чисел и сумму}
writeln('Сумма чисел, кратных 9, но не кратных 6: ', s);
end.
