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

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

1

Ответы и объяснения

2013-11-29T20:19:17+04:00
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.