Tạo mảng B gồm n phần tử nguyên ( n < 20 ). Hãy viết chương trình thực hiện các công việc sau: a. Tính trung bình cộng của các phần tử trong mảng. b. In ra màn hình danh sách các số chẵn trong dãy.
Tạo mảng B gồm n phần tử nguyên ( n < 20 ). Hãy viết chương trình thực hiện các công việc sau: a. Tính trung bình cộng của các phần tử trong mảng. b. In ra màn hình danh sách các số chẵn trong dãy.
program oken;
uses crt;
var b: array [1..1000] of integer;
i,n: integer;
tong: longint;
begin
clrscr;
write(‘nhap so luong phan tu cua mang: ‘); readln(n);
tong:=0;
for i:=1 to n do
begin
write(‘b[‘,i,’]: ‘); readln(b[i]);
tong:=tong+b[i]
end;
write(‘cac so chan trong mang: ‘);
for i:=1 to n do
if b[i] mod 2=0 then
write(b[i],’ ‘);
writeln;
writeln(‘tbc cua mang: ‘,tong/n:0:3);
readln;
end.
Program BTH;
uses crt;
var b:array [1..19] of longint;
i,n,tong:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
tong:=0;
for i:=1 to n do
begin
write(‘b[‘,i,’]: ‘); readln(b[i]);
tong:=tong+b[i]
end;
writeln(‘Trung binh cong cua mang: ‘,tong/n:4:2);
write(‘Cac so chan trong mang: ‘);
for i:=1 to n do
if b[i] mod 2=0 then
write(b[i],’ ‘);
readln;
end.