Question

Bài 1. Viết chương trình đọc dữ liệu vào từ tập tin DOC.INP như sau: − Dòng 1: Số nguyên dương n (n ≤ 255) − Dòng 2: Gồm n số nguyên nằm trên một dòng, mỗi số cách nhau một khoảng trắng. (các số nguyên thuộc khoảng từ -2 15 đến 215 -1) Yêu cầu: a) Tìm số nhỏ nhất (Min) có trong tập tin. Ví dụ: DOC.INP KQ.OUT

Answer 1

uses crt;

const fi='doc.inp'

var f1:text;

n,i:integer;

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

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

 read(f1,a[i]);

min:=a[1];

for i:=1 to n do 

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

writeln(min);

close(f1);

readln;

end.