Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В одномерном массиве найти число кратное 7, если таковы есть, вывести на экран.

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger(n=);
  var a:=ArrRandom(n,1,50); a.Println;
  a.Where(x->x mod 7=0).Println
end.

Тестовое решение:
n= 12
26 7 32 16 26 8 40 34 49 28 10 10
7 49 28