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
Kiên Ngọc

em hãy tạo pt pascal tạo tệp songuyen.dat gồm các số nguyên viết cách nhau bởi 1 khoảng trắng và không kết thúc bằng kí tự xuống dòng em hãy tính tích các số nguyên tim số nguyên lớn nhất rồi ghi vào tệp ketqua.dat

Nguyễn Lê Phước Thịnh
17 tháng 2 2023 lúc 7:40

const fi='songuyen.dat'

fo='ketqua.dat'

var f1,f2:text;

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

i,n,s,ln:integer;

begin

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

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

read(f1,a[i]);

s:=1;

ln:=a[1];

for i:=1 to n do

begin

s:=s*a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(f2,s);

writeln(f2,ln);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Vũ văn huy
Xem chi tiết
An Hạ
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
Quyền
Xem chi tiết
Ngọc Ánh
Xem chi tiết
Haibanh
Xem chi tiết
Hoàng Long
Xem chi tiết
Trần Thanh Trọng
Xem chi tiết
Vũ Hữu Đại
Xem chi tiết