1. Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.

uses crt;

const n:=10; 

var i: interger;

begin

       clrscr;

        for i:=1 to n do writeln(i:10);

        readln

end.

~ chạy nó sẽ ra vầy

1          2             3           4             5              6                7             8                8                   10

2.Viết chương trình in ra màn hình n số nhập vào từ bàn phím.

uses crt;

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

n,i:interger;

begin

           clrscr;

            writeln('nhap so hang tu n ban can nhap:');readln(n);

            for i:=1 to n do begin

            writeln('nhap hang tu:');read;

             writeln('a[',i,']'); readln(a[i] );

              end;

             for i:=1 to n do 

              writeln('cac hang tu vua nhap la :',a[i]);

readln

end.

~chạy nó sẽ ra ntn

 nhap so hang tu n ban can nhap : 3(mình nhập là 3)

nhap cac hang tu a[1]:3

a[2]:5

a[3]:9

cac hang tu vua nhap la 3

cac hang tu vua nhap la 5

cac hang tu vua nhap la 9

1.

program C1;

uses crt;

var i: byte;

Begin

         clrscr;

         for i:=1 to 10 do write(i,'   ');

         readln

End.

2.

program C2;

uses crt;

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

      n,i: byte;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

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

         end;

         write('Cac so vua nhap vao la: ');

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

         readln

End.

3.

program chan_le;

uses crt;

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

      n,i: byte;

Begin

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

         for i:=1 to n do

         begin

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

         end;

         write('Cac so chan lien tiep: ');

         for i:=1 to n do 

             if A[i] mod 2=0 then write(A[i],'  ');

         writeln;

         write('Cac so le lien tiep: ');

         for i:=1 to n do

             if A[i] mod 2<>0 then write(A[i],'  ');

         readln

End.