Прошу помощи по паскалю

[Evgeniy_1]

Задача:
Из массива случайных чисел от 1 до 200 выбрать числа из диапазона от 32 до 162 и записать их в отдельный массив

[Arigato]

В каком месте возникают трудности?

[Evgeniy_1]

Не понимаю, как написать код

[Arigato]

Вопрос понял. Могу порекомендовать такие специальные программы - клавиатурные тренажеры. Они позволяют освоить метод набора текста путем нажатия кнопок на клавиатуре. Уверен, после того, как попрактикуетесь в этом занятии, проблем с написанием быть не должно

[newerow1989]

var p:array[1..10] of integer;
    z:array of integer;
    i,len:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=1+Random(200);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   len:=0;
   For i:=1 to 10 do
      If (p[i]>=32) and (p[i]<=162) then
      begin
         Inc(len);
         SetLength(z,len);
         z[len-1]:=p[i];
      end;
   For i:=0 to len-1 do
      Write(z[i]:3,'  ');
   Writeln;
   Readln;
end.