Ответ:
program kratnoe;
var mas: array [1..4] of Integer ;
i, c: integer;
begin
for i:=1 to 4 do
begin
writeln('Введите число ', i);
readln(mas[i]);
if mas[i] mod 9 =0 then c:=c+1;
end;
writeln(c, ' чисел , кратных девяти');
end.
Объяснение:
program kratnoe;
var mas: array [1..4] of Integer ; // заводим массив из четырех чисел
i, c: integer; // i для использования массива, а с счётчик кратных чисел
begin
for i:=1 to 4 do // цикл присваивает i значения от 1 до 4
begin
writeln('Введите число ', i);
readln(mas[i]); // считываем элемент массива
if mas[i] mod 9 =0 then c:=c+1; // проверяем кратно ли число 9, если кратно, то к счётчику добавляем единицу.
end;
writeln(c, ' чисел , кратных девяти'); // распечатываем количество кратных девяти.
end.