– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình: + Các số chẵn hoặc lẻ + Số lớn nhất hoặc nhỏ nhất

0 bình luận về “– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình: + Các số chẵn hoặc lẻ + Số lớn nhất hoặc nhỏ nhất”

1. Số chẵn:

   program so_chan;

   uses crt;

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

         n,i:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          write(‘Cac so chan la: ‘);

          for i:=1 to n do

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

          readln;

   end.

   Số lẻ:

   program so_le;

   uses crt;

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

         n,i:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          write(‘Cac so le la: ‘);

          for i:=1 to n do

                 if A[i] mod 2=1 then write(A[i],’ ‘);

          readln;

   end.

   Lớn nhất:

   program lon_nhat;

   uses crt;

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

         n,i,max:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          max:=A[1];

          for i:=2 to n do

                if A[i]>max then max:=A[i];

          write(‘So lon nhat la: ‘,max);

          readln;

   end.

   Nhỏ nhất:

   program nho_nhat;

   uses crt;

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

         n,i,min:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          min:=A[1];

          for i:=2 to n do

                if A[i]>min then min:=A[i];

          write(‘So nho nhat la: ‘,min);

          readln;

   end.

   Bình luận

2. * Với kiểu mảng in ra các số lẻ:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   WRITE(‘ Cac so le trong day tren la: ‘);
   For i:=1 to n do If a[i] mod 2 = 1 then write(a[i]:3);
   Readln
   End.
   *Với kiểu mảng in ra các số chẵn: 

   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   WRITE(‘ Cac so chan trong day tren la: ‘);
   For i:=1 to n do If a[i] mod 2 = 0 then write(a[i]:3);
   Readln
   End.
   * Với kiểu mảng in ra số lớn nhất:

   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   max:=a[1];
   For i:=2 to n do If max<a[i] then max:=a[i];
   Write(‘ So lon nhat trong day do la: ‘,max:2);
   Readln
   End.
   * Với kiểu mảng in ra số nhỏ nhất:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,min:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   min:=a[1];
   For i:=2 to n do If min>a[i] then min:=a[i];
   Write(‘ So nho nhat trong day do la: ‘,min:2);
   Readln
   End.

   Bình luận