Thanh Nguyễn
Hỏi từ APP VIETJACK
Viết chương trình tìm giá trị lớn nhất và nhỏ nhất của dãy số gồm n phần tử biết dãy số đó và phần tử n được nhập từ bàn phím
Quảng cáo
1 câu trả lời 1227
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 hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Thành viên hăng hái nhất trong tuần
-
✎YLY. Sealine౨ৎ
610 điểm
-
Lionel Andres Messi
580 điểm
-
BI IS SAD | K12 ♡ ... ? 490 điểm
-
Minh nè:))
285 điểm
-
HỌC BÁ 8B5💯
275 điểm
-
Nguyễn Thị Quỳnh Mai
230 điểm
-
anh tài thành tích
225 điểm
-
chenyiheng
220 điểm
-
Hien ha nhu 175 điểm
-
$$\color{orange}{꧁ ঔ ৣ ☬ ✞ ⨳₳₪™ ⨳ ✞ ☬ ঔ ৣ ꧂}$$
170 điểm
-
hoàng chí vỹ 140 điểm
-
Yui Lú Cutee
130 điểm
-
♡ 𝓘 𝓵𝓸𝓿𝓮 𝔂𝓸𝓾 ♡
125 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11882
-
4 năm trước11256
-
4 năm trước9926
-
4 năm trước10218
-
4 năm trước9657
Gửi báo cáo thành công!
