Viết chương trình nhập 1 dãy số nguyên gồm N phân tử từ bàn phím. Đưa ra màn hình những phần tử không chia hết cho 2 của dãy số đó Giúp mik nha nhanh

0 bình luận về “Viết chương trình nhập 1 dãy số nguyên gồm N phân tử từ bàn phím. Đưa ra màn hình những phần tử không chia hết cho 2 của dãy số đó Giúp mik nha nhanh”

1. program lapchuabiettruoc;
   uses crt;
   var i,n:integer;
       a:array[1..100] of integer;
   begin
    clrscr;
    write(‘Nhap n: ‘);
    readln(n);
    for i:=1 to n do
    begin
     write(‘Phan tu thu ‘,i,’:’);
     readln(a[i]);
    end;
    writeln(‘Cac phan tu khong chia het cho 2 la: ‘);
    for i:=1 to n do if a[i] mod 2 <> 0 then write(a[i],’ ‘);
    readln;
   end.

   Bình luận