Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел кратных 8 из интервала [121, 400], а если таких чисел нет, то ввести NO. Решить через массив.

var n, i, s, k:integer;

a:array [1 ... 1000] of integer;

begin

write ('Введите количество чисел в последовательности: ') ;

readln (n) ;

for i:=1 to n do

begin

write ('Введите число: ') ;

readln (a[i]) ;

if (a[i] mod 8 = 0) and (a[i]>=121) and (a[i]<=400) then

begin

s:=s+a[i];

k:=k+1

end

end;

if k=0 then write ('NO')

else writeln ('Cреднее арифметическое чисел кратных 8 из интервала [121, 400] равно: ', s/k:0:3)

end.