Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Phamj Tùng
Xem chi tiết
Văn Công Sỹ
Xem chi tiết
Văn Công Sỹ
25 tháng 4 2021 lúc 10:28

Làm giúp bài này nhé

 

Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:41

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:19

uses crt;

var a:array[1..100]of integer;

i,n,min,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

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;

for i:=1 to n do write(a[i]:4);

readln;

end.

việt nam tùng
Xem chi tiết
Nguyễn Ngọc Giang Linh (...
15 tháng 9 2021 lúc 15:20

hok bt đâu

Khách vãng lai đã xóa
Huỳnh Ngọc Phương  Linh
16 tháng 9 2021 lúc 16:49

yr7rtftyftr6t6t

Khách vãng lai đã xóa
Lê Vũ Uyên Linh
17 tháng 9 2021 lúc 7:58

hmmmmmm

Khách vãng lai đã xóa
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
22 tháng 3 2019 lúc 13:11

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
5 tháng 10 2017 lúc 8:57

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
8 tháng 5 2019 lúc 9:30

Đáp án đúng : B

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
23 tháng 2 2017 lúc 16:25

Trân Tăng
Xem chi tiết
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:11

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:13

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

Chuu
Xem chi tiết