Вопрос по информатике:
Помогите, 50б)
В массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12. Найти среднее арифметическое, произведение отрицательных чисел, количество четных и максимальный элемент.
1. создание массива
2. заполнение массива
3. посчитать
4. вывод
Срочнооо, спасибо
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.08.2017 13:20
- Информатика
- remove_red_eye 7040
- thumb_up 23
Ответы и объяснения 2
beginsredn:=0;proiz:=1;max_el:=-12;for i:=1 to 8 do begin a[i]:=random(-12,12);sredn:=sredn+a[i];if a[i]max_el then max_el:=a[i];end;writeln('среднее арифметическое = ',sredn/8);writeln('произведение отрицательных чисел = ', proiz);writeln('количество четных цифр =', chet);writeln('максимальный элемент = ',max_el);end.
Сделано в компиляторе PascalABC
- 17.08.2017 01:23
- thumb_up 36
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,-12,12); a.Println;
Writeln('Среднее арифметическое: ',a.Average);
Writeln('Произведение отрицательных: ',
a.Where(t->tx*y));
Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);
Writeln('Максимальный элемент: ',a.Max)
end.
Пример
9 -10 -2 -4 11 8 1 0
Среднее арифметическое: 1.625
Произведение отрицательных: -80
Количество четных: 5
Максимальный элемент: 11
- 18.08.2017 04:51
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.