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.
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ố
Đọc tệp sẵn là Data(I).txt bên trong có 24 chữ số có cả âm và dương. Tính tổng 24 chữ số rồi in ra Data(O).txt . Các bác giúp em với program day_so; uses crt; Const fi=('An(I).txt'); fo=('An(O).txt'); var i,t,s,n: integer; f1,f2:text; a: array[1..24] of integer; begin clrscr; assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); s:=0; for i:=1 to 24 do begin read(f1,a[i]); s:=s+a[i]; end; write(f2,s); close(f1); close(f2); readln end. Em không biết sai ở đâu ☹️