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