Question

Nhập vào mảng 1 chiều không quá 200 phần tử là số nguyêna, In ngược mảng vừa nhập sao cho biến nọ cách biến kia bởi dấu cáchb, Tính tổng các phần tử chẵn có chỉ số lẻ và in ra màn hìnhc, In ra màn hình các số chia hết cho 2 và 5

Answer 1

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang nguoc la: ');

for i:=n downto 1 do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];

writeln('Tong cac so chan co chi so le la: ',t);

writeln('Cac so chia het cho 2 va 5 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i] mod 5=0) then write(a[i]:4);

readln;

end.