Question

Nhập từ bàn phím N số nguyên a1,a2,...an

Đưa dãy vừa nhập ra màn hình

Đếm xem trong dãy có bao nhiêu số lẻ

Tính tổng các số lẻ trong dãy

Sắp xếp dãy đã cho thành dãy giảm dần.

Kết quả đưa ra màn hình

Answer 1

uses crt;

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

n,i,dem,t,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

if a[i] mod 2<>0 then inc(dem);

writeln('Trong day co ',dem,' so le');

t:=0;

for i:=1 to n do

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

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.