program a1;
const n=10;
var a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do begin
read(a[i]);
end;
for i:= 1 to n do begin
if a[i]<0 then writeln('a[',i,']=',a[i])
end
end.

#include <iostream>
#include <conio.h>
#include <stdlib.h>
int main()
{
setlocale(LC_ALL,"RUS");
printf("Введите значение 10-ти элементов массива\n");//через enter
int n=10,a[10],b,i,g;
for (i=0;i<n;i++){
scanf("%d",&b);
a[i]=b;
}
for (i=0;i<n;i++){
if (a[i]<0){
printf("a[%d]=%d\n",i,a[i]);
}
}
getch();
}