Question

Cho 1 dãy số gồm n phần tử n>=5. Giá trị từng phần tử là số nguyên. Thực hiện các chương trình sau:
a) nhập từ bàn phím số phần tử và giá trị từng phần tử
b) tính tổng các phần tử âm của dãy
c) tính tổng và trung bình cộng của các phần tử chẵn của dãy
d) tìm phần tử có giá trị lớn nhất của dãy
e) tìm phần tử có giá trị nhỏ nhất
f) sắp xếp dãy theo chiều giảm dần về giá trị của từng phần phần tử
g) in các kết quả trên ra màn hình

Answer 1

Program HOC24;

var d,tg,max,j,min,i,n: integer;

t1,t: longint;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

readln;

t:=0; t1:=0; max:=0; min:=32000; d:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

d:=d+1;

end;

if min>a[i] then min:=a[i];

if max<a[i] then max:=a[i];

end;

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

writeln('Tong cac so am cua day la : ',t);

writeln('Tong cac so chan la : ',t1,'; Trung binh cong cua no la : ',t1/d:2:2);

writeln('Phan tu co gia tri lon nhat la : ',max);

writeln('Phan tu co gia tri nho nhat la : ',min);

for i:=1 to n do write(a[i],' ');

readln

end.