Дан целочисленный массив из 40 элементов

[XVXWOLFXVX]

Дан целочисленный массив из 40 элементов , все элементы которого - целые числа в интервале от -500 до 500 .
Опишите напишите на русском языке или на одном из языков программирования алгоритм , который находит среднее арифметическое всех положительных элементов массива , которые кратны первому элементу( делятся нацело на первый элемент ) . Гарантируется что первый из элементов массива равен нулю .

Код: Выделить всё

const N=40;
var a:array [1..N] of integer;
i,x,y:integer;
s: real;
begin 
  for i:=1 to N do readln(a[i]);
  ...
end.

[Naeel Maqsudov]

Согласно условию задачи, ("Гарантируется что первый из элементов массива равен нулю .") существует тривиальное решение:
Так как элементов кратных первому не существует, то перманентным, тривиальным независящим от входных данных решением будет... [барабанная дробь]
Отсутствие решения!
Так как среднее по нулю элементов — это 0/0.