Cho một dãy số gồm n phân tử ,n lớn hơn hoặc bằng 15 . Gía trị của từng phân tử là số nguyên:
a, Nhạp từ bàn phím số phân tử và giá trị của từng phân tử
b, Tỉnh tôgnr các phân tử âm của dãy
c, Sắp xếp dãy theo chiêu giảm dần về giá trị của từng phần tử
d, In kết quả ra màn hình
Mn ơi giúp tớ nhé ,mai tớ nộp rồi
ues crt;
var a: array[1..100] of integer;
i,n,s,j,t: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap pt thu ‘,i,’: ‘); readln (a[i]);
if a[i]<0 then s:=s+a[i];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln (‘tong cac so am: ‘,s);
write (‘day giam dan: ‘);
for i:=1 to n do write (a[i],’ ‘);
readln;
end.
program bai_giai;
uses crt;
var A:array[1..1000] of integer;
n,i,t,j,tg:integer;
begin
clrscr;
repeat
write(‘Nhap n: ‘); readln(n);
if n<15 then writeln(‘n phai lon hon hoac bang 15. Nhap lai.’);
until n>=15;
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]<0 then t:=t+A[i];
end;
writeln(‘Tong cac so am la: ‘,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 sap xep giam dan la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.