Question

Viết CT nhập vào dãy gồm n phần tử. In ra màn hình giá trị trung bình của các phần tử là số chắn vad đếm số các phần tử chẵn này.Biết n là số tự nhiên được nhập vào từ bàn phím.

Answer 1

uses crt;

var n,dem,i,tb:longint;

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

begin

clrscr;

write('Nhap so phan tu cua day '); readln(n);

for i:=1 to n do read(a[i]);

dem:=0;

tb:=0;

for i:=1 to n do if a[i] mod 2 = 0 then dem:=dem+1;

for i:=1 to n do if a[i] mod 2 = 0 then tb:=tb+a[i];

writeln('Giá trị trung bình của các phần tử chẵn là: ',tb/dem);

write('Số phần tử chẵn của dãy là: ',dem);

readln;

end.