Question

Viết chương trình nhập một mảng N số nguyên

+ In mảng theo chiều ngược lại

+ tính và in tổng các phần tử ở vị trí lẻ

Answer 1

Tính & in tổng phần tử tại vị trí lẻ:

Type mang=array [1..20] of integer;

var a:mang; i,n,s:integer;

begin

s:=0;

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

writeln('tong la');

for i:=1 to n do

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

writeln(s);

readln;

end.

Answer 2

type mang=array[1..20] of integer;
var a:mang;
i,n,s:integer;
begin
clrscr;
readln(N);
for i:=1 to n do
readln(a[i]);

{in theo chieu nguoc lai}
for i:=n downto 1 do
write(a[i],' ');

writeln();

{tinh va in tong cac phan tu o vi tri le}
s:=0;
for i:=1 to n do
if i mod 2 <>0 then s:=s+a[i];
writeln(s);
readln;
end.