Дан массив целых чисел, содержащий 15 элементов .Найти те элементы ,которые при делении...

Question

Дан массив целых чисел, содержащий 15 элементов .Найти те элементы ,которые при делении на 7 дают 1,2 или 5

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,1,50); a.Println;
  var s:=a.Where(k->((k div 7) in [1,2,5]) and (k mod 7=0));
  if s.Count>0 then s.Println
  else Writeln('Нет элементов, удовлетворяющих условию')
end.

Пример
41 9 25 19 6 39 27 6 44 40 44 23 35 14 7
35 14 7

Comments

Спасибо все работает=))