viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )
hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết thủ tục tính tổng các số nguyên có trong tệp đó
viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím ) hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết
By Lydia
var i,n, temp: longint; Arr: array[1..100000000] of longint;
procedure TinhTong();
var temp,kq: longint;
begin
assign(input,’huanvo.DAT’);
reset(input);
for i:=1 to n do read(temp);
kq:=kq+temp;
writeln;
writeln(‘Tong la: ‘,kq);
end;
begin
write(‘Nhap so N: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
readln(Arr[i]);
end;
assign(output,’huanvo.DAT’);
rewrite(output);
for i:=1 to n do write(Arr[i],’ ‘);
TinhTong();
end.
uses crt;
var f:text; n,i:longint; a:Array[1..1000000]of longint;
function s(n:longint):longint;
var i:longint;
begin
s:=0;
for i:=1 to n do s:=s+a[i];
end;
begin
clrscr;
assign(f,’huanvo.DAT‘);reset(f);
write(‘n=’);readln(n);
for i:=1 to n do readln(f,a[i]);
close(f);
writeln(s(n));
end.