1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n–>1. (Dùng kiểu mảng)

0 bình luận về “1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n–>1. (Dùng kiểu mảng)”

1. 1.

   var i,n:longint;

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

   begin

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

   for i:=1 to n do

   begin

   write(‘a[‘,i,’] =’); read(a[i]);

   end;

   writeln;

   writeln(‘So chan trong day la: ‘);

   for i:=1 to n do

   if a[i] mod 2 =0 then write(a[i],’ ‘);

   readln;

   end.

   2. 

   var i,n:longint;

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

   begin

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

   for i:=1 to n do

   begin

   write(‘a[‘,i,’] =’); read(a[i]);

   end;

   writeln;

   writeln(‘Day viet nguoc lai la: ‘);

   for i:=n downto 1 do

   write(a[i],’ ‘);

   readln;

   end.

   Bình luận

2. Bài 1: 

   Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           For i:=1 to n do
                   If A[i] mod 2 = 0 then Write(A[i],’ ‘);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           For i:=n downto 1 do
                   Write(A[i],’ ‘);
           Readln
   End.

   Bình luận