Hãy viết chương trình nhập số nguyên dương n ( n<= 1000) từ bàn phím tạo mảng A gồm n số nguyên A1, A2,.. An từ bàn phím. Tìm các số chẵn trong mảng A

Hãy viết chương trình nhập số nguyên dương n ( n<= 1000) từ bàn phím tạo mảng A gồm n số nguyên A1, A2,.. An từ bàn phím. Tìm các số chẵn trong mảng A. Đưa ra màn hình các số chẵn và chỉ số của các phần tử chẵn đó (mỗi số chẵn được viết trên một dòng).

0 bình luận về “Hãy viết chương trình nhập số nguyên dương n ( n<= 1000) từ bàn phím tạo mảng A gồm n số nguyên A1, A2,.. An từ bàn phím. Tìm các số chẵn trong mảng A”

  1. uses crt;

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

           n,i: integer;

    begin

    clrscr;

    write(‘Nhap N: ‘);

    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(‘So chan: ‘,a[i],’ va chi so: ‘,i);

    readln

    end.

    Bình luận

Viết một bình luận