Вопрос по информатике:
Помогите пожалуйста решить задачу по информатике.
Массив из 20 элементов случайных чисел от -5 до 20. Найти среднее арифметическое положительных элементов массива, выяснить сколько среди элементов нулей и сколько отрицательных чисел. Найти произведение чётных элементов массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.03.2016 00:05
- Информатика
- remove_red_eye 6913
- thumb_up 20
Ответы и объяснения 1
Const n=20;
var a:array[1..n] of integer;
k1,k2,s,i:integer;
p:real;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(26)-5;
write(a[i],' ');
end;
writeln;
k1:=0; k2:=0; p:=1;
for i:=1 to n do begin
if a[i]>0
then begin s:=s+a[i]; k1:=k1+1; end
else if a[i]<0 then k2:=k2+1;
if a[i] mod 2 = 0 then p:=p*a[i];
end;
writeln('Среднее арифметическое положительных элементов = ',s/k1);
writeln('Количество отрицательных чисел = ',k2,' количество нулей = ',n-k1-k2);
writeln('Произведение чётных элементов = ',p);
end.
Пример:
10 1 11 -5 -4 10 -4 -2 2 2 17 3 12 -3 15 -5 12 -3 4 -4
Среднее арифметическое положительных элементов = 8.25
Количество отрицательных чисел = 8 количество нулей = 0
Произведение чётных элементов = 29491200
- 04.03.2016 11:14
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.