Question

viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=90). đếm và in ra màn hình số lượng các số chẵn trong mảng

 

Answer 1

uses crt;
var a:array[1..90] of longint;
    n,i:integer;
begin
    clrscr;
    write('Nhap so luong phan tu (n<=90): '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
    write('Cac so chan: ');
    for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
    readln;
end.

Answer 2

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

if a[i] mod 2=0 then inc(dem);

writeln(dem);

readln;

end.