Question

Viết trương trình nhập vào một dãy số nguyên với n phần tử (n<100)

A.    Tính tổng của các số lẻ của dãy

B.     In ra màn hình dãy đâỏ ngược số nguyên vừa nhận

Answer 1

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

i,n:integer;

s:longint;

begin

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

for i:=1 to n do

begin

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

if a[i] mod 2 <> 0 then s:=s+a[i];

end;

writeln('Tong cac so le cua day la ',s);

write('Day dao nguoc la ');

for i:=n downto 1 do

write(a[i]:8);

readln

end.