Bài 15: Thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Đức Anh Khoa

Viết chương trình tính tổng của n số nguyên có trong tệp Tong.inv. đưa giá trị tìm được ra tệp Tong.out. Dữ liệu vào gồm hai dòng dòng 1 ghi số nguyen dương n dòng 2 ghi n số nguyên dương dữ liệu ra một số nguyên duy nhất là tổng tìm được

Nguyễn Lê Phước Thịnh
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t: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]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Felix MC-Gamer
Xem chi tiết
An Đinh
Xem chi tiết
Hân Cao
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Nguyễn Thị In
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết
Yến Chi Phan Nguyễn
Xem chi tiết
Ka Ka
Xem chi tiết