Question

Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A₁ A₂,..., A_n  mỗi số đều không vượt quá 500. Yêu cầu:

1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.

2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A

3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.

4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.

5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.

6) Tính trung bình cộng các phần tử trong dãy.

Answer 1

uses crt;

var a:array[1..250]of integer;

i,n,dem,t,t1,t2,t3,t4:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=250);

for i:=1 to n do 

  begin

repeat

write('A[',i,']='); readln(a[i]);

until (0<a[i]) and (a[i]<=500);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=1 then inc(dem);

writeln('So phan tu co gia tri le la: ',dem);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+a[i];

writeln('Tong cac phan tu co chi so chan la: ',t);

t1:=0;

for i:=1 to n do 

  if i mod 2=1 then t1:=t1+a[i];

writeln('Tong cac phan tu co chi so le la: ',t1);

t2:=0;

for i:=1 to n do 

  if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];

writeln('Tong cac phan tu chan co chi so chan la: ',t2);

t3:=0;

for i:=1 to n do 

  if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];

writeln('Tong cac phan tu co chi so le la: ',t3);

t4:=0;

for i:=1 to n do 

  t4:=t4+a[i];

writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);

readln;

end.