Những câu hỏi liên quan
PT
Xem chi tiết
VS
Xem chi tiết
VS
25 tháng 4 2021 lúc 10:28

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

 

Bình luận (0)
BT
25 tháng 4 2021 lúc 19:41

Bình luận (0)
NT
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.

Bình luận (0)
VT
Xem chi tiết
NL
15 tháng 9 2021 lúc 15:20

hok bt đâu

Bình luận (0)
 Khách vãng lai đã xóa
HL
16 tháng 9 2021 lúc 16:49

yr7rtftyftr6t6t

Bình luận (0)
 Khách vãng lai đã xóa
LL
17 tháng 9 2021 lúc 7:58

hmmmmmm

Bình luận (0)
 Khách vãng lai đã xóa
PB
Xem chi tiết
CT
22 tháng 3 2019 lúc 13:11

Bình luận (0)
PB
Xem chi tiết
CT
5 tháng 10 2017 lúc 8:57

Bình luận (0)
PB
Xem chi tiết
CT
8 tháng 5 2019 lúc 9:30

Đáp án đúng : B

Bình luận (0)
PB
Xem chi tiết
CT
23 tháng 2 2017 lúc 16:25

Bình luận (0)
TT
Xem chi tiết
BT
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ình luận (0)
BT
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

Bình luận (0)
H24
Xem chi tiết