Заполнить массив из 12 элементов случайными числами от -20 до 10.

Const
   n = 12;
Var
   A:array[1..12] of integer;
   i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(31)-20;
    Write(' ',A[i])
    End;
WriteLn;
Write('Номера отрицательных частей:');
For i:= 1 to N do
    if A[i] lt; 0 then Write(' ',i)
End.