Question

Массив из 10 элементов,найти все трехзначные числа и кратные 5
(pascalABC)

Answer 1

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

begin
  var a:=ArrRandom(10,1,2000); a.Println;
  a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.

Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180

Answer 2

program test;
var
arr:=ArrRandom(10,1,2000);
a,b,i: integer;
begin
for i:=0 to 9 do
if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then
write(arr[i]+' ');
end.