program number4;
var a: array[1..10] of integer;
i,k: integer;
Begin
writeln('Введите 10 значений массива');
for i:=1 to 10 do
readln(a[i]);
write('Индексы: ');
for i:=1 to 10 do
if a[i]
Begin
write(i,' ');
k:=k+1;
End;
writeln(' ');
writeln('Количество отрицательных элементов: ',k);
End.
P.S. Значения массива вводить с клавиатуры.