Quảng cáo
2 câu trả lời 156
a)
var a:array[1..100] of longint;
n,i,max,d:longint;
begin
read(n);
for i:=1 to n do
write('nhap chieu cao, don vi cm');read(a[i]);
b) max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('ban cao nhat cao',max);
c) for i:=1 to n do
if a[i]>160 then d:=d+1;
write('so ban cao hon 160 cm la: ',d);
end.
Program hotrotinhoc;
var a: array[1..40] of real;
i,n: integer;
max,min: real;
begin
for i:=1 to 40 do
begin
write('Nhap ban thu ',i,': '); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to 40 do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln('Chieu cao cua ban thap nhat la : ',min:1:2);
write('Chieu cao cua ban cao nhat la : ',max:1:2);
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 VIETJACK45490
-
Hỏi từ APP VIETJACK28376
-
bright star
745 điểm
-
uk
440 điểm
-
Sakura Mochi
395 điểm
-
`color{lightpink}text{lov.h}`
335 điểm
-
$\Huge\color{yellow}{STALIN}$
285 điểm
-
Hoàng 280 điểm
-
`color{ pink}text{trượt nv2 huhuu}`
265 điểm
-
kq nguyn~
210 điểm
-
$\color{#FA8072}{𝖙𝖍è𝖒౨ৎ𝖙𝖍ị𝖙౨ৎ𝖙𝖚ấ𝖙ᴾᴿᴼシ}$
200 điểm
-
Lê Quyết 165 điểm
-
lê đức thiên phước
125 điểm
-
★꧁☁︎જ⁀➴✞༺S͜͡øN͜͡G͜͡ ༒︎ N͜͡G͜͡ư༻✞જ⁀➴☁︎꧂★
100 điểm
-
💞Munly💞
95 điểm
-
doacghcmai214
85 điểm
-
Calculus1013
70 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước10859
-
4 năm trước10264
-
4 năm trước8930
-
4 năm trước9115
-
4 năm trước8668
