Question

Cho số nguyên dương N(N<200) và dãy A gồm n số nguyên dương A₁, A₂,... A_n.

1) Tính tổng phần tử lẻ của mảng vừa nhập.

2) In ra các phẩn tử của mảng vừa nhập có chỉ số chẵn.

Answer 1

uses crt;

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

n,i,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{----------------------------------cau-1--------------------------------}

t:=0;

for i:=1 to n do

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

writeln('tong cac phan tu le trong mang la: ',t);

{---------------------------------cau-2------------------------------}

writeln('cac phan tu vua nhap co chi so chan la: ');

for i:=1 to n do

if i mod 2=0 then write(a[i]:4);

readln;

end.