Viết chương trình nhập vào một mảng gồm n phần tử 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
Giúp mình với ạ
Chiều mình phải nộp rồi ạ
Viết chương trình nhập vào một mảng gồm n phần tử 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
Giúp mình với ạ
Chiều mình phải nộp rồi ạ
Program chuongtrinh;
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 can sap xep: ‘); 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 do 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.
var a: array[1..250] of integer;
n, j, i: byte;
min, t: integer;
S: longint;
Begin
Write(‘n = ‘); readln(n); s:=0;
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If i=1 then min:=a[1]
Else if a[i]<min then min:=a[i];
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(‘gtnn: ‘, min);
Write(‘tong: ‘, s);
Readln
End.