Найти количество четных положительных и количество нечетных отрицательных элементов заданного одномерного массива. Массив сгенерировать с помощью генератора случайных чисел в диапазоне от -12 до 20. Количество элементов в массиве 30.
Ответы на вопрос
Ответил petyaGavrikov
0
// 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 2<>0)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 2<>0)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
Ответил lizasoloveva0
0
слишком усложнено, можно попроще
Новые вопросы