Question

Viết chương trình nhập vào một dãy số nguyên n. Với n được từ bàn phím.

a. Tính tổng các số trong dãy

b. Sắp xếp dãy theo thứ tự tăng dần.

c. Đếm xem trong dãy có bao nhiêu phần tử.

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

e. Đếm xem trong dãy có bao nhiêu số chẵn.

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

Các bạn giúp mình với!

Answer 1

program dghf;

uses crt;

var n,i,j: integer;

M:array[1..100] of integer;

tong, sle, sch, sam, tam: real;

begin

clrscr;

writeln('Nhap do dai mang, N = '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:= 1 to n do

begin writeln('M[',i,'] = '); read(M[i]) end;

{cau a};

tong:=0;

for i:= 1 to n do tong:=tong+M[i];

write('Tong cac so cua day la ',tong);

{cau b};

for i:=1 to n-1 do

for j:=i+1 to n do

if M[i] > M[j] then

begin

tam:=M[i]; M[i] := M[j]; M[j]:=tam end;

writeln('Day so sau khi sap xep la: ');

for i:=1 to n do write(M[i]);

{cau c};

writeln('So phan tu cua day la: ',n);

{cau d};

for i:= 1 to n do

if A[i] mod 2 <> 0 then sle:=sle+1;

writeln('So so le cua day la: ', sle);

{cau e};

for i:= 1 to n do

if A[i] mod 2 = 0 then sch:=sch+1;

writeln('So so chan cua day la: ',sch);

{cau f};

for:=1 to n do

if A[i] < 0 then sam:=sam+1;

writeln('So so am trong day la: ', sam);

readln

end.

Answer 2

program dghf;

uses crt;

var n,i,j: integer;

M:array[1..100] of integer;

tong, sle, sch, sam, tam: real;

begin

clrscr;

writeln('Nhap do dai mang, N = '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:= 1 to n do

begin writeln('M[',i,'] = '); read(M[i]) end;

{cau a};

tong:=0;

for i:= 1 to n do tong:=tong+M[i];

write('Tong cac so cua day la ',tong);

{cau b};

for i:=1 to n-1 do

for j:=i+1 to n do

if M[i] > M[j] then

begin

tam:=M[i]; M[i] := M[j]; M[j]:=tam end;

writeln('Day so sau khi sap xep la: ');

for i:=1 to n do write(M[i]);

{cau c};

writeln('So phan tu cua day la: ',n);

{cau d};

for i:= 1 to n do

if A[i] mod 2 <> 0 then sle:=sle+1;

writeln('So so le cua day la: ', sle);

{cau e};

for i:= 1 to n do

if A[i] mod 2 = 0 then sch:=sch+1;

writeln('So so chan cua day la: ',sch);

{cau f};

for:=1 to n do

if A[i] < 0 then sam:=sam+1;

writeln('So so am trong day la: ', sam);

readln

end.