Заполнить массив из 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] < 0 then Write (' ', i)

End.