Question

(пожалуйста помогите )
заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов.

Answer 1

Var
n: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
n[i]:=random(31)-20;
writeln('n[', i, '] = ', n[i]);
end;
for i:=1 to 12 do
if n[i]<0 then write(i, ' ');
end.