Viết chương trình nhập vào mảng 1 chiều gồm 20 phần tử, đếm số phần tử có giá trị âm

a=[int(input('Nhập phần tử thứ '+str(i+1)+': ')) for i in range(20)]
count=0
for i in a:
    if i<0:
        count+=1
print('Số phần tử có giá trị âm là: '+str(count))

Program Typlex;

Uses crt;

Var dem,i: real;

      M: array[1..20] of real;

Begin

      dem:=0;

      For i:=1 to 20 do

      Begin

            Writeln('M[',i,']='); Readln(M[i]);

            If M[i]<0 then dem:=dem+1;

      End;

      Writeln('So phan tu co gia tri am: ',dem);

Readln

End.