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

ekkaterrinna2003 ekkaterrinna2003    3   14.09.2019 03:40    1

Ответы
Помощник223 Помощник223  07.10.2020 13:19
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика