Question

Viết chương trình táo ra một tệp chứa một mảng số nguyên không quá 100 phần tử . Tiến hành mở tệp ra để đọc dữ liệu và tính tổng các phần tử của mảng tất cả đều sử dụng thủ tục để viết chương trình

Answer 1

Program hotrotinhoc_hoc24;

const fi='dlv.inp';

fo='dlr.out';

var i,n,t: integer;

f: text;

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

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=0;

for i:=1 to n do t:=t+a[i];

write(f,t);

close(f);

end;

begin

ip;

out;

end.