
Глеб
6 год назад
ПАСКАЛЬ МАССИВ СОСТАВИТЬ ПРОГРАММУ Имеется массив В11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
ОТВЕТЫ

Noamvokok
Jul 22, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln(k=,b.Where(x-gt;(xgt;2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln(k=,b.Where(x-gt;(xgt;2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3
67
Смежные вопросы: