Question

1) Viết chương trình nhập 10 số nguyên. Xuất ra màn hình số số chẵn.
2) Viết chương trình tính tổng dãy n số nguyên với n được nhập từ bàn phím.

Answer 1

Lời giải :

1)

program hotrotinhoc;

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

var i : integer;

begin

for i:= 1 to 10 do

begin

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

end;

for i:= 1 to 10 do

if a[i] mod 2 <>1 then write(a[i],' ');

readln

end.

2)

program hotrotinhoc;

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

i,n,tong : integer;

begin

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

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do tong:=tong+a[i];

write(tong);

readln

end.