Giúp mk- Tin học 8

Question

Viết chương trình nhập vào 1 dãy gồm N phần tử ( N được nhập từ bàn phím ) in ra các số âm của dãy.

Answer 1

Uses Crt; 
Var i,n,m:integer; 
a:array[1..100] of integer; 
Begin 
     Clrscr; 
     Write('Nhap n = '); 
     Readln(n); 
     For i:=1 to n do 
Begin 
    Write('A[',i,'] = '); 
    Readln(a[i]); 
End; 
    m:=A[1]; 
    For i:=2 to n do If A[i]