Привет! Я создал программу на Pascal, которая решает твою задачу․ Вот код программы⁚
pascal
program FindAverage;
var
number, sum, count⁚ integer;
begin
sum ⁚ 0;
count ⁚ 0;
repeat
readln(number);
if (number mod 8 0) then
begin
sum ⁚ sum number;
count ⁚ count 1;
end;
until (number 0) or (count 100);
if (count <> 0) then
writeln(‘Среднее арифметическое чисел, кратных 8⁚ ‘, (sum / count)⁚0⁚1)
else
writeln(‘NO’);
end․ В этой программе я использую цикл `repeat-until` для чтения последовательности чисел․ Мы считываем числа до тех пор, пока не встретим число 0 или не достигнем лимита в 100 чисел․ Внутри цикла проверяем, является ли число кратным 8․ Если число удовлетворяет этому условию, то мы добавляем его к общей сумме чисел и увеличиваем счетчик на 1․ После выхода из цикла проверяем, были ли найдены числа, кратные 8․ Если были найдены, то выводим среднее арифметическое с точностью до десятых․ В противном случае выводим ″NO″․ Готовая программа соответствует условиям задачи и даст верный ответ для приведенного примера ввода и вывода․ Надеюсь, эта информация будет полезна для тебя!