1. Nhập số phần tử của 1 dãy số, nhập giá trị của n phần tử. Yêu cầu:
a, In ra dãy số sắp xếp tăng dần.
b, In ra số lớn nhất.
c, In ra số nhỏ nhất.
d, In ra số lượng các phần tử nhỏ nhất.
2. Nhập số phần tử của 1 dãy số, nhập giá trị của n phần tử. Yêu cầu:
a, In ra dãy số sắp xếp giảm dần.
b, In ra số lớn nhất.
c, In ra số nhỏ nhất.
d, In ra số lượng các phần tử lớn nhất.
Lời giải :
Câu 1 :
var ,j,dem,min,max : integer ;
a : array[1..32000] of integer;
begin
write('n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{cau a};
for i:= 1 to n-1 do
for j:= 1 to n do
if a[i] > a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg ;
end;
write('Mang sap xep theo thu tu tang dan la');
for i:= 1 to n do write(a[i]:3);
{cau b va cau c};
max :=a[1]; min:= a[1] ; dem:=0;
for i:= 2 to n do
begin
if max < a[i] then max:=a[i];
if min > a[i] then min:=a[i];
if a[i]=min then dem:=dem+1;
end;
write('Gia tri lon nhat la:',max);
write('Gia tri nho nhat la:',min);
write('So luong phan tu nho nhat la',dem);
readln
end.
Câu 2 : tương tự câu 1 , bạn tự vận dụng nha
