Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phan Thị T.Chinh

Viết chương trình nhập vào 1 dãy số nguyên n phần tử .tìm phần tử nhỏ nhất của dãy số nguyên và ghi kết quả vào tệp ketqua.out

Nguyễn Lê Phước Thịnh
12 tháng 4 2021 lúc 12:49

uses crt;

const fi='ketqua.out'

var f1:text;

a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(f1,min);

close(f1);

readln;

end.


Các câu hỏi tương tự
Nguyễn Lê
Xem chi tiết
Leoumax
Xem chi tiết
Phạm Vy
Xem chi tiết
Sói Channel
Xem chi tiết
fyujg
Xem chi tiết
Lee Jihoon
Xem chi tiết
Hwang Ah
Xem chi tiết
Dương Thành Long
Xem chi tiết
Anh Thư
Xem chi tiết