TÍNH TỔNG VÀ TRUNG BÌNH CỘNG CỦA CÁC PHẦN TỬ CHẴN CỦA MA...

3.

Tính tổng và trung bình cộng của các phần tử chẵn của mảng.

Input A = 1 -4 5 6 -7Output S = 2, TB = 1 Xác định bài toán:- Input: mảng a

-

Output: tổng các phần tử chẵn và TB cộng của các phần tử chẵn trong mảng. Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

- B2: i 1, s  0, d  0- B3: nếu a

i

chia hết cho 2 thì s  s + a

i

, d d+1

-

B4: i i + 1

-

B5: nếu i > n, tính TB  s/d, đưa ra S và TB rồi kết thúc.- B6: quay lại bước 3. Chương trình: program tongchan;uses crt;var n,i:byte; a:array[1..15] of integer; s:integer; TB: real;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; s:=0; d:=0; for i:=1 to n do if a[i] mod 2 = 0 then begin s:=s+a[i];d:=d+1; end;TB:= s/d; writeln('tong cac phan tu trong mang la: ',s);writeln(‘trung binh cac phan tu chan la: ‘,TB);readlnend.