Hugidred
6 год назад
Вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. Pascal
ОТВЕТЫ
Броневский
Jul 5, 2019
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x-gt;x.IsEven).Count;
Writeln(Четных- ,n,, нечетных- ,10-n)
end.
Пример
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x-gt;x.IsEven).Count;
Writeln(Четных- ,n,, нечетных- ,10-n)
end.
Пример
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
21
Смежные вопросы:
