Question

Viết chương trình nhập vào một mảng các số nguyên gồm n phần tử sau đó:

a) Tính tổng các số chẵn trong mảng

b) Tính tổng các số lẻ trong mảng

c) Đếm xem có bao nhiêu phần tử chẵn trong mảng

d) Đếm xem có bao nhiêu phần tử lẻ trong mảng

Answer 1

program chuongtrinh;

uses crt;

var chan, le, i,dem1, dem2 :integer;

a:array [1 .. 1000 ] of integer;

begin

write (' Nhap gia tri n = ');

readln (n);

for i:=1 to n do

begin

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

readln (a[i]);

end;

chan:= 0;

dem1:=0;

dem2:=0;

le:= 0;

for i:=1 to n do if i mod 2 = 0 then

begin

dem1:=dem1+1;

chan:=chan+a[i];

end;

for i:=1 to n do if i mod 2 <> 0 then

begin

dem2:=dem2+1;

le:=le+a[i];

end;

writeln (' Tong chan la: ',chan);

writeln (' So phan tu chan trong mang la: ',dem1);

writeln (' Tong le la: ',le);

writeln (' So phan tu le trong mang la: ', dem2);

readln

end.

P/S: thử xem được không nhé.