cho em hỏi bài này em làm thế này có dúng không ạ ,mà khi em chạy chương trình thì lại báo lỗi là exitcode 205Đề Bai:CHO DÃY SỐ NGUYÊN A1,A2,...AN,N<=1000Ai<= 10 mũ 6 trong tệp VB:SONGUYEN.INP có cấu trúc như sau:-dòng đầu tiên ghi số N-dòng thứ hai ghi các giá trị ai mỗi số cách nhau 1 khoảng trốngtìm giá trị bé nhất của dãy số lưu vào tệp program timmin;const fi:='SONGUYEN.INP'; fo:='SONGUYEN.OUT';var A:array[1..1000] of longint; ...
Đọc tiếp
cho em hỏi bài này em làm thế này có dúng không ạ ,mà khi em chạy chương trình thì lại báo lỗi là exitcode 205
Đề Bai:CHO DÃY SỐ NGUYÊN A1,A2,...AN,N<=1000
Ai<= 10 mũ 6 trong tệp VB:SONGUYEN.INP có cấu trúc như sau:
-dòng đầu tiên ghi số N
-dòng thứ hai ghi các giá trị ai mỗi số cách nhau 1 khoảng trống
tìm giá trị bé nhất của dãy số lưu vào tệp
program timmin;
const fi:='SONGUYEN.INP';
fo:='SONGUYEN.OUT';
var A:array[1..1000] of longint;
N,i:integer;
min:integer;
f,g:text;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
begin
read(f,N);
for i:=1 to N do
read(f,a[i]);
min:=a[1];
for i:'2 to N do
if a[i]<min them min:=a[i];
writeln(g,min);
end;
close(f); close(g);
END.
uk
Bạn nên khai báo biến mảng A là Integer thôi vì exitcode 205 là lỗi tràn số