Phần mềm học tập

SL

Viết chương trình nhập một dãy số nguyên gồm n phần tử từ bàn phím đưa rãi vừa nhập ra màn hình tìm giá trị nhỏ nhất đưa kết quả ra màn hình.

H24
3 tháng 5 2018 lúc 17:13

Var z:array[1..1000] of longint;

n, i, min:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

min:= z[1];

End;

For i:=1 to n do begin if min>z[i] then min:=z[i];

End.;

Writeln('So nho nhat la ',min);

End.

Bạn thử kiểm tra lại nhé!

Bình luận (1)

Các câu hỏi tương tự
H24
Xem chi tiết
ND
Xem chi tiết
SL
Xem chi tiết
SL
Xem chi tiết
LD
Xem chi tiết
SL
Xem chi tiết
PT
Xem chi tiết
PK
Xem chi tiết
SL
Xem chi tiết