Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quyền

viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi vào tệp solonnhat.txt

Quyền
4 tháng 5 2021 lúc 20:55

Uses crt; Var f1,f2:text; i,n,max:integer; a:array[1..100] of integer; Begin Assign(f1,'baitap.txt');reset(f1); Assign(f2,'solonnhat.txt');rewrite(f2); While not eof(f1) do Begin Read(f1,n,a[i]); Max:=a[1]; For i:=2 to n do if a[i]>max then max:=a[i]; End; Writeln(f2,'solonnhatla:',max); Close(f1);close(f2); End.

Quyền
4 tháng 5 2021 lúc 21:30

uses crt;
var n,max :integer;
    f1,f2:text;
begin
clrscr;
assign(f1,'baitap.txt'); reset(f1);
assign(f2,'solonhat.txt'); rewrite(f2);
max:=0;
while not eof(f1) do
  begin
  read(f1,n);
  if max <n then max:=n;
  end;
writeln('solonhatla: ',max:5);
write(f2,max);
close(f1);close(f2);
readln;
end.


Các câu hỏi tương tự
Quyền
Xem chi tiết
duc tran
Xem chi tiết
Haibanh
Xem chi tiết
Hoàng Long
Xem chi tiết
Haibanh
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Kiên Ngọc
Xem chi tiết
Phạm Thị Thu Hằng
Xem chi tiết
Ngọc Ánh
Xem chi tiết