Дан массив из 30 целых положительных чисел. подсчитать количество элементов массива кратных 6 и не заканчивающихся на 4. если таких элементов в массиве нет, то сообщить «нет», 20
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(30,-99,99); a.Println; var k:=a.Where(t->(t mod 6=0) and (t mod 10<>4)).Count; if k=0 then Writeln('Нет') else Writeln('Найдено элементов: ',k) end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(30,-99,99); a.Println;
var k:=a.Where(t->(t mod 6=0) and (t mod 10<>4)).Count;
if k=0 then Writeln('Нет') else Writeln('Найдено элементов: ',k)
end.
Пример
-32 -46 -99 97 63 40 -3 -89 31 -43 69 32 -66 -66 -59 98 -88 -41 -30 19 69 -83 -88 0 12 -87 -53 82 59 53
Найдено элементов: 5