viết chương trình nhập vào 1 dãy số in ra dãy các số chẵn ” =======…”

0 bình luận về “viết chương trình nhập vào 1 dãy số in ra dãy các số chẵn ” =======…””

1. In ra dãy các số chẵn:

   uses crt;
   var a:array[1..1000] of integer;
       i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do 
      begin
        write(‘Nhap phan tu thu ‘,i,’: ‘);
        readln(a[i]);
      endl;
      for i:=1 to n do if i mod 2 = 0 then write(a[i]:4);
      readln
   end.

   In ra dãy các số lẻ:

   uses crt;
   var a:array[1..1000] of integer;
       i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do 
      begin
        write(‘Nhap phan tu thu ‘,i,’: ‘);
        readln(a[i]);
      endl;
      for i:=1 to n do if i mod 2 = 1 then write(a[i]:4);
      readln
   end.

   Bình luận

2. uses crt;
   var arr:array[1..100]of longint;
       n,i:longint;
   begin
   clrscr;
       readln(n);
       for i:=1 to n do readln(arr[i]);
       for i:=1 to n do
           if arr[i] mod 2=0 then write(arr[i],’ ‘);
   readln;
   end.

    

   uses crt;
   var arr:array[1..100]of longint;
       n,i:longint;
   begin
   clrscr;
       readln(n);
       for i:=1 to n do readln(arr[i]);
       for i:=1 to n do
           if arr[i] mod 2=1 then write(arr[i],’ ‘);
   readln;
   end.

   Bình luận