Viết chương trình nhập vào 1 dãy N số nguyên và in ra màn hình dãy các số lẻ

0 bình luận về “Viết chương trình nhập vào 1 dãy N số nguyên và in ra màn hình dãy các số lẻ”

1. program ct;

   uses crt;

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

         i,n:integer;

   begin clrscr;

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

      for i:= 1 to n do

        begin

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

        end;

      writeln(‘Day cac so le la: ‘);

      for i:=1 to n do

        if A[i] mod 2=1 then write(A[i]:3);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var i,n:integer;

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

   Begin

   clrscr;

    Write(‘nhap n tu ban phim ‘);

    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(‘cac so le la:’,A[i]);

   Readln

   End.

   Bình luận