Question

Viết chương trình nhập 1 mảng số nguyên gồm n phần tử

- in ra các phần tử của mảng vừa nhập

- In ra các phần tử có giá trị chẵn

- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn

Answer 1

uses crt;

var n,i,chan,tonchan:integer;

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

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

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

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.