Вопрос по информатике:
Напишите программу,которая в последовательности целых чисел определяет 1.количество четных отрицательных чисел
2.среднее арифметическое нечётных чисел
Программа получает на вход целые числа, количество введёных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.02.2015 12:09
- Информатика
- remove_red_eye 6069
- thumb_up 37
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqIntegerWhile(i->i0).ToArray;
Writeln('Четных отрицательных ',a.Where(i->(i<0) and i.IsEven).Count,
', ср.арифм. нечетных ',a.Where(i->i.IsOdd).Average:0:3)
end.
Пример
3 -4 2 -5 6 -1 7 -2 0
Четных отрицательных 2, ср.арифм. нечетных 1.000
- 23.02.2015 22:23
- thumb_up 40
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
- 24.02.2015 09:57
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.