Cho một dãy số gồm n phân tử lớn hơn hoặc bằng 15. Gía trị của từng phân tử là các số nguyên.
Thực hiện các Chương trình sau:
-Nhập từ bàn phím số phân tử và giá trị của từng phân tử
-Tính tổng các phân tử âm của dãy
-Sắp xếp dãy theo chiều giảm dần về giá trị của từng phần tử
-In kết quả ra màn hình
program Day;
uses crt;
var A:array [1..15] of integer;
n,i,T,j,tg: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i]<0 then T:=T+A[i];
end;
write(‘Day vua nhap: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
writeln(‘Tong cac phan tu am = ‘,T);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write(‘Day sau khi sap xep giam dan: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln
End.