Вопрос по информатике:
дан целочисленный массив из 40 элементов,все элементы которого-целые числа в интервале от -500 до 500. Опишите на русском или на одном из языков программирования алгоритм,который находит среднее арифметическое всех положительных элементов массива,которые кратны первому элементу(делятся нацело на первый элемент)
первый массива отличен от нуля!
- 26.05.2018 15:04
- Информатика
- remove_red_eye 4214
- thumb_up 6
Ответы и объяснения 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.
- 27.05.2018 20:18
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.