Дан одномерный массив натуральных чисел. вывести на экран: 1) все трехзначные числа содержащиеся в нем 2) номера всех четырехзначных чисел

Const

N = 33;

Var

A:array[1 ... N] of integer;

i:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (100000) - 50000;

Write (' ', A[i]) ;

End;

WriteLn;

WriteLn;

Write ('Трёхзначные числа:') ;

For i: = 1 to N do

if (99
WriteLn;

Write ('Номера четырёхзначных чисел:') ;

For i: = 1 to N do

if (999
End.

Пример:

Исходный массив: 12916 46699 20251 - 36637 - 14335 - 33817 - 25279 - 5819 - 6258 23375 15258 1264 10987 42877 9875 3515 - 22647 - 791 47876 - 319 - 23437 - 43546 - 46174 - 29378 - 17999 - 37325 - 10130 - 38120 - 40079 - 12188 - 34612 - 17302 28074

Трёхзначные числа: - 791 - 319

Номера четырёхзначных чисел: 8 9 12 15 16