Đưa ra màn hình các số lẻ của dãy số( làm mẫu để mk làm các bài tin khác)

0 bình luận về “Đưa ra màn hình các số lẻ của dãy số( làm mẫu để mk làm các bài tin khác)”

1. program mau;

   uses crt;

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

         n,i: byte;

   Begin

            write(‘Nhap so phan tu: ‘); readln(n);

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            write(‘Cac so le cua day so: ‘);

            for i:=1 to n do

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

            readln

   End.

   Bình luận

2. uses crt;

   var n,i:byte;

   A:array[0..200] of integer;

   BEGIN

           clrscr;

           write(‘Nhap so phan tu:’); readln(n);

           for i:=1 to n do

           begin

                   write(‘Nhap a[‘,i,’]:’);

                   readln(a[i]);

           end;

           write(‘Cac so le:’);

           for i:=1 to n do

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

           readln

   END.

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

   Bình luận