viết chương trình nhập vào một mảng gồm n phần thử, in ra giá trị nhỏ nhất, tính tổng các phần tử có trong mảng và sắp xếp mảng theo thứ tự giảm dần
viết chương trình nhập vào một mảng gồm n phần thử, in ra giá trị nhỏ nhất, tính tổng các phần tử có trong mảng và sắp xếp mảng theo thứ tự giảm dần
uses crt;
var a: array[1..100] of integer;
n,i,s,min,j,t: integer;
begin
clrscr;
S:=0;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do begin
write(‘a[‘,i,’]=’); readln(a[i]); end;
min:=a[1];
for i:=2 to n do
if min>a[i] then min:=a[i];
writeln(‘Phan tu nho nhat la: ‘,min);
for i:=1 to n do s:=s+a[i];
writeln(‘Tong phan tu trong mang la: ‘,s);
for i:=1 to n 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;
write(‘Mang sap xep theo thu tu giam dan la: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln;
end.
đã test mong đc vote!
program baigiai;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg,t,min:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
end;
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;
writeln(‘Phan tu nho nhat la: ‘,A[n]);
writeln(‘Tong cac phan tu cua mang la: ‘,t);
write(‘Day su khi sap xep giam dan la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.