Question

Программа Паскаль , помогите пж

Answer 1

// PascalABC.NET 3.3

const n=10;
begin
  var a:=ArrRandom(n,-20,30);
  for var i:=0 to n-1 do
   if a[i] mod 8=0 then writeln(a[i],' - YES')
   else writeln(a[i],' - NO');
  var p:=a.Where(x->x mod 8=0);
  if p.Count<>0 then writeln(p.Average)
   else writeln('Нет элементов, кратных 8');
end.

Пример:
25 - NO
-14 - NO
-11 - NO
-3 - NO
5 - NO
-15 - NO
-16 - YES
25 - NO
15 - NO
-15 - NO
-16