дан целочисленный массив из 40 элементов,все элементы которого-целые числа в интервале от -500 до 500. Опишите на русском или на одном из языков программирования алгоритм,который находит среднее арифметическое всех положительных элементов массива,которые кратны первому элементу(делятся нацело на первый элемент)
первый массива отличен от нуля!
Answers & Comments
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.