Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương

program CTNMT;

uses crt;

var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

for i:=1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

Writeln('In ra mang:');

for i:1 to n do Write(a[i]:5);

writeln;

Writeln('In ra so chan trong mang');

for i:= 1 to n do

begin

if (a[i] mod 2) = 0 then Write(a[i]:5)

if a[i] < 0 then dem:= dem +1;

end;

writeln('so so nguyen am la: ',đem);

REadln;

var a: array[1..256] of integer;

       n, i, d: byte;

Begin

    Write('n = '); readln(n);

    D:=0;

    For i:=1 to n do 

       Begin

           Write('a[', i, '] = '); readln(a[i]);

           If a[i]>0 then d:=d+1;

       End;

   Write('co ', d, ' so duong');

   Readln

End.