Bài 11: Kiểu mảng

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

Bài 1: Cho số nguyên dương N (N<200) và dãy A gồm N số nguyên dương A1, A2,... AN. Tìm phần tử nhỏ nhất của dãy số nguyên.

Nguyễn Lê Phước Thịnh
4 tháng 4 2020 lúc 21:47

uses crt;
var a:array[1..199]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xu-ly-------------------------------}
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Leoumax
Xem chi tiết
Võ Thị Thanh Trúc
Xem chi tiết
fyujg
Xem chi tiết
Lê Phương Thảo
Xem chi tiết
Hải Phong
Xem chi tiết
12: Quách Hà
Xem chi tiết
Sarah Lilia
Xem chi tiết
nguyenthithuha
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Phong Vũ
Xem chi tiết