дан целочисленный массив из 40 элементов,все элементы которого-целые числа в интервале от...

Question

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

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

Answer 1

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.