Question

Дан массив 18 натуральных чисел.напечатать все элементы массива,являющиеся трехзначными числами

Answer 1

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

begin
  var a:=ArrRandom(18,10,5000); a.Println;
  a.Where(t->t.Between(100,999)).Println
end.

Answer 2

Program n1;
var a: array[1..18] of integer;
i: integer;
begin
randomize;
for i:=1 to 18 do a[i]:=random(10000);
for i:=1 to 18 do if (a[i]>99) and (a[i]<1000) then write(a[i],' ');
end.