Quảng cáo
1 câu trả lời 2225
3 năm trước
Program Cau2;
Uses crt;
Var i,n,max,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Write(‘ Nhap do dai cua day so, n= ‘);
Readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:= 1 to n do
Begin
Write(‘a[‘, i, ‘]= ‘);
Readln(a[i]);
End;
max:= a[1];
min:= a[1];
For i:= 2 to n do
Begin
If max < a[i] then max:= a[i];
If min > a[i] then min:= a[i];
End;
Writeln(‘So *** nhat la max= ‘, max);
Writeln(‘So nho nhat la min= ‘, min);
Readln;
End.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Thành viên hăng hái nhất trong tuần
-
2235 điểm
-
I miss you
2045 điểm
-
𓇼 ⋆.˚annabelle⋆.˚ 𓇼 1260 điểm
-
Judy Hopps
1100 điểm
-
bích hồng nguyễn 760 điểm
-
`color{red}text{HuyTùng`
530 điểm
-
zai đẹp siu
490 điểm
-
lọ hà nội
440 điểm
-
dũng ngon hơn ok
405 điểm
-
Haruto[pad] 395 điểm
-
chê ng tốt chốt ng tồi.
365 điểm
-
n.t.an
300 điểm
-
⋅˚₊‧ ଳ⋆.࿔*:･𝙇ệ_ဗီူ_𝙥𝙝𝙪_ဗီူ_𝙣𝙝â𝙣⋅˚₊‧ ଳ⋆.࿔*:･
245 điểm
-
minhxinhquama
190 điểm
-
✿ 𝓝𝓪̂́𝓶 🍄
180 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8199
-
3 năm trước7715
-
3 năm trước6553
-
3 năm trước6447
-
3 năm trước6270
Gửi báo cáo thành công!
