Вопрос по информатике:
Найти количество четных положительных и количество нечетных отрицательных элементов заданного одномерного массива. Массив сгенерировать с помощью генератора случайных чисел в диапазоне от -12 до 20. Количество элементов в массиве 30.
Пожаловаться
- 13.05.2015 22:39
- Информатика
- remove_red_eye 11738
- thumb_up 41
Ответы и объяснения 1
// PascalABC.NET 3.3
begin
var a:=ArrRandom(30,-12,20); a.Println;
writeln('Четных положительных: ',a.Where(x->(x mod 2=0)and(x>0)).Count);
writeln('Нечетных отрицательных: ',a.Where(x->(x mod 20)and(x<0)).Count);
end.
Пример:-12 6 -11 -4 0 12 12 -9 -3 9 12 -3 15 18 0 -11 6 -9 12 11 16 -7 -2 -5 10 -1 3 18 0 0
Четных положительных: 10
Нечетных отрицательных: 9
begin
var a:=ArrRandom(30,-12,20); a.Println;
writeln('Четных положительных: ',a.Where(x->(x mod 2=0)and(x>0)).Count);
writeln('Нечетных отрицательных: ',a.Where(x->(x mod 20)and(x<0)).Count);
end.
Пример:-12 6 -11 -4 0 12 12 -9 -3 9 12 -3 15 18 0 -11 6 -9 12 11 16 -7 -2 -5 10 -1 3 18 0 0
Четных положительных: 10
Нечетных отрицательных: 9
Пожаловаться
- 14.05.2015 17:38
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы