Дан одномерный массив x1 x2 ... xn найдите все элементы кратные 5 напишите решение в...

Question

Дан одномерный массив x1 x2 ... xn найдите все элементы кратные 5 напишите решение в паскале

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var a:=ArrRandom(ReadInteger('Введите размер массива:'),      ReadInteger('Промежуток от:'), ReadInteger('До:')); a.Println;
  a.Where(t->t mod 5=0).Println;
end.

Пример:
Введите размер массива: 10
Промежуток от: 1
До: 50
35 15 37 21 8 15 33 20 24 36
35 15 15 20