cho N và dãy số nguyên dương a1,a2...an.hãy nhập và in dãy nguyên dương ra màn hình

uses crt;

var a:array[1..200] of word;

    i,n:byte;

BEGIN

        clrscr;

        write('Nhap n:'); readln(n);

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

        write('In ra:');

        for i:=1 to n do write(a[i],' ');

        readln

END.

Chúc bạn học tốt!

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

readln;

end.