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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
sery Lan

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.

Phezam
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é!


Các câu hỏi tương tự
Finn
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
sery Lan
Xem chi tiết
sery Lan
Xem chi tiết
Linh Da
Xem chi tiết
sery Lan
Xem chi tiết
Phạm Tèo
Xem chi tiết
Phạm An Khánh
Xem chi tiết
sery Lan
Xem chi tiết