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

первый массива отличен от нуля!

var

sum, n, i:integer;

m: array [1 ... 40] of integer;

begin

randomize;

writeln ('Введите 1-ый элемент массива: ') ;

read (m[1]) ;

writeln ('Массив: ') ;

write (m[1]:6) ;

for i:=2 to 40 do

begin

m[i]:=random (1001) - 500;

write (m[i]:6) ;

end;

for i:=1 to 40 do

if (m[i] > 0) and (m[i] mod m[1] = 0) then

begin

sum:=sum+m[i];

inc (n) ;

end;

writeln;

writeln ('Среднее арифметическое = ', sum/n) ;

end.