Viết chương trình nhập từ bàn phím số nguyên dương n và dãy A gồm n số nguyên dương A1, A2,…,An, sau đó in ra màn hình trung bình cộng các phần tử chẵn trong dãy A.
Viết chương trình nhập từ bàn phím số nguyên dương n và dãy A gồm n số nguyên dương A1, A2,…,An, sau đó in ra màn hình trung bình cộng các phần tử chẵn trong dãy A.
program ct;
uses crt;
var i,n,S:integer; tbc:real;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i] mod 2=0 then
begin
S:=S+A[i];
tbc:=S/n;
end;
writeln(‘trung binh cong cac so chan la:’,tbc);
readln
end.
program oken;
uses crt;
var a: array [1..100] of integer;
n,i,dem,s: longint;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); readln(n);
s:=0; dem:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘); readln(A[i]);
if (a[i] mod 2=0) then
begin
s:=s+a[i];
dem:=dem+1;
end;
end;
writeln(‘TBC cac phan tu chan: ‘,s/dem:0:3);
readln;
end.