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 ạ

nguyensydong343

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

catthanh191

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.

Vote (0) Phản hồi (0) 2 năm trước

thanhcau.dinh

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp em trả lời câu này với Mai đi học rồi

cho 4 điểm bất kì trong đó ko có điểm nào thẳng hàng, số tam giác nhận các đỉnh làm điểm có nhiề nhất là bn

Người ta dùng một cái thang dài 5m đặt cách chân tường 2m để đóng đinh tại vị trí thẳng tiếp xúc với vách tường. Hỏi vị trí đóng định cách chân tường bao nhiêu mét (làm tròn 1 chữ số thập phân) Mn giúp mik bài này với mik đag cần gấp mik cảm ơn ạ Bài 4: (1,0 điểm): Người ta dùng một cái thang dài 5m đặt cách chân tưong 2m để đóng đinh tại vị trí thang tiếp xúc với vách tường. Hỏi vị trí đóng đinh cách chân tường bao nhiêu mét (làm tròn 1 chữ số thập phân) ( định ý pitago)

I/Rewrite the following sentences,using words given or do as directed:(ghi DHNB và THÌ )(NẾU CÓ) 1/Light pollution happens.Animals change their behavior patterns -if______________________________________ 2/there is too much light pollution , so we can't see the starts at night. -Because____________________________________ 3/Ships spill in oceans and rivers.Many aquatic animals and plants die.(Combine the sentence,using "leads to") 4/If i were a environmentalist,___________________________________________ (complete the sentence)

giá sách thứ nhất có 4 ngăn, mỗi ngăn để 100 quyển sách. Số sách thứ hai chỉ bằng 1/2 số sách ở giá sách thứ nhất. Hỏi cả hai giá sách có bao nhiêu quyển?

Văn học và tình thương.(Gợi ý chứng minh rằng văn học của dân tộc ta luôn cả ngợi những ai biết "thương người như thể thương thân "và nghiêm khắc phê phán những kẻ thờ ơ ,dửng dưng trước người hoạn nạn Bài viết số 7

các bạn ơi giúp mình với. Cho 7,8 gam hỗn hợp A gồm CH3OH và C2H5OH tác dụng với Na dư thu được 2,24 lít khí hidro(dktc). Tính thành phần phần trăm khối lượng của mỗi chất trong A?

Cho phương trình: (m^2-4)x+2=m (I) Với điều kiện nào của m thì phương trình (I) là một phương trình bậc nhất. Tìm nghiệm của phương trình trên với tham số m? (Ai giải giúp mình với mình cần gấp ai làm được thì mình cho 1 câu trả lời hay nhất và cho 5 sao)

Viết bài văn ngắn cần gấp. Thanks 😍

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến