Сделать или 3 или что бы уже вставить в программу .

pascal

Объяснение:

2)

var

i, k, n: integer;

a, b: array of integer;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(a, n);

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

 for i := 0 to n - 1 do

 begin  

   a[i] := random(21) - 10;

   Write(a[i]:4);

   if a[i] > 0 then k := k + 1;

 end;

 WriteLn;

 SetLength(b, k);

 k := 0;

 WriteLn('Пложительные числа:');

 for i := 0 to n - 1 do

 begin  

   if a[i] > 0 then

   begin  

     b[k] := a[i];

     Write(b[k]:4);

     k := k + 1;

   end;

 end;

end.