Viết chương trình nhập vào một mảng số nguyên gồm n phần tử ( với n <=100). Sau đó thực hiện các yêu cầu sau: a./ Hãy nhập và in mảng số nguyên trên ra màn hình. b./ Hãy đếm số phần tử chẵn của mảng trên. c./ Hãy tính tổng các phần tử chẵn của mảng trên. các ban làm xong chạy thử trên turbo pascal được r mới vt nha
var A: array[1..100] of integer; i,dem,n: integer; tong: real;
begin
write(‘Nhap so n: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
readln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 2 = 0) then
begin
dem:=dem+1;
tong:=tong+a[i];
end;
writeln(‘Ket qua: ‘);
writeln(‘Cau a: Day la toan bo mang: ‘);
for i:=1 to n do
write(a[i],’ ‘);
writeln();
writeln(‘Cau b: So luong phan tu chan la: ‘,dem);
writeln(‘Cau c: Tong phan tu chan la: ‘,tong:0:0);
readln
end.
program phantuchan;
uses crt;
var A:array[1..100] of integer;
n,i,d:integer;
tong:longint;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
d:=0; tong:=0;
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod =0 then
begin
d:=d+1;
tong:=tong+A[i];
end;
end;
write(‘a) Mang vua nhap la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
writeln;
writeln(‘b) Trong mang co ‘,d,’ phan tu chan’);
writeln(‘c) Tong cac phan tu chan trong mang la: ‘,tong);
readln;
end.