Question

BT1: Viết trương trình nhập vào dãy A gồm N phân tử là số nguyên. Nhập và đưa ra màn hình dãy ABT2: Viết chương trình nhập vào dãy A gồm N phân tử (N bé hơn hoặc bằng 100). Tính tổng số chẵn trang tính A

Answer 1

BT1: 

Uses crt;

var i,n: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do 

read(a[i]); readln;

writeln(a[i]:3);

readln;

end. 

BT2: 

Uses crt;

var i,n,k: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do 

read(a[i]); readln;

for i:=1 to n do begin

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

end;

writeln(k);

readln;

end.