ПАСКАЛЬ МАССИВ СОСТАВИТЬ ПРОГРАММУ Имеется массив В11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
ПАСКАЛЬ МАССИВ СОСТАВИТЬ ПРОГРАММУ Имеется массив В11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln('k=',b.Where(x->(x>2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3
Не нашли ответ?
Похожие вопросы