Viết chương trình nhập vào một mảng gồm n số nguyên, sắp sếp theo thứ tự tăng dần và tìm số lớn và bé nhất rồi in ra màn hình kết quả
Mod giúp em với ạ 9.30 em phải nộp bài rồi ạ
Viết chương trình nhập vào một mảng gồm n số nguyên, sắp sếp theo thứ tự tăng dần và tìm số lớn và bé nhất rồi in ra màn hình kết quả Mod giúp em với
By Piper
uses crt;
var A:array[1..1000] of integer;
N,i,j,tam,max,min:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(N);
for i:=1 to N do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tam:=A[i];
A[i]:=A[j];
A[j]:=tam;
end;
write(‘Mang sap xep theo thu tu tang dan: ‘);
for i:=1 to n do write(A[i]:4);
writeln;
max:=A[1]; min:=A[1];
for i:=2 to n do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
write(‘Max la: ‘,max);
writeln;
write(‘Min la: ‘,min);
readln
end.
Program bai_tap;
Uses crt;
Var A: array [1..150] of integer;
i, n, j, t, max, min : integer;
Begin
Write (‘nhap n=’);
Readln (n);
For i:=1 to n do
begin
Write (‘nhap phan tu thu ‘,i,’=’);
Readln (A[i]);
end;
For j:=n downto 2 do
For i:=1 to j-1 do
If A[i]> A[i+1] then
begin
t:= A[i];
A[i]:= A[i+1];
A[i+1]:=t;
end;
max:=A[1];
For i:=2 to n do
If max < A[i] then max:= A[i];
min:= A[1];
For i:=2 to n do
If min > A[i] then min:= A[i];
Writeln (‘Day do duoc sap xep la:’);
For i:=1 to n do Write (A[i]:5);
Writeln;
Writeln (‘so lon nhat la:’, max);
Writeln (‘so be nhat la:’, min);
Readln
End.