Tin học Đề thi tự luận tin học 11

[Nguyễn Hoài Thơm]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho tệp INT. DAT chứa dãy số nguyên ( không quá 100 số nguyên) lấy dữ liệu từ tệp. Sau đó tìm giá trị lớn nhất trong dãy, đưa kết quả tìm được vào tệp OUT. TXT.

 

[ka1412]

uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
f:text;
begin
clrscr;
assign(f,'int.dat');reset(f);i:=1;
while not eof(f) do
begin
    read(f,a[i]);
if i=1 then max:=a[i] else if a[i]>max then max:=a[i];
inc(i);
end;
close(f);
assign(f,'out.txt');rewrite(f);
write(f,max);
close(f);
readln
end.

Có gì sai thì bảo mình nha

 

[Nguyễn Hoài Thơm]

uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
f:text;
begin
clrscr;
assign(f,'int.dat');reset(f);i:=1;
repeat
readln(f,a[i]);
if i=1 then max:=a[i] else if a[i]>max then max:=a[i];
inc(i);
until eof;
close(f);
assign(f,'out.txt');rewrite(f);
write(f,max);
close(f);
readln
end.

Có gì sai thì bảo mình nha

uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
f:text;
begin
clrscr;
assign(f,'int.dat');reset(f);i:=1;
repeat
readln(f,a[i]);
if i=1 then max:=a[i] else if a[i]>max then max:=a[i];
inc(i);
until eof;
close(f);
assign(f,'out.txt');rewrite(f);
write(f,max);
close(f);
readln
end.

Có gì sai thì bảo mình nha

 

[Nguyễn Hoài Thơm]

C. Ơn b nha. Mau mình làm bài kiểm tra

 

[ka1412]

Mình sửa lại r đấy

uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
f:text;
begin
clrscr;
assign(f,'int.dat');reset(f);i:=1;
while not eof(f) do
begin
    read(f,a[i]);
if i=1 then max:=a[i] else if a[i]>max then max:=a[i];
inc(i);
end;
close(f);
assign(f,'out.txt');rewrite(f);
write(f,max);
close(f);
readln
end.

Có gì sai thì bảo mình nha