Question

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

Answer 1

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.