Question

Cho 1 tệp dl.i nt gồm 2 dòng Dòng 1 lưu trữ 1 số nguyên N Dòng 2 lưu trữ N số nguyên Thực hiện đọc dữ kiệu từ tệp vào ctrình và tính tổng dòng 2 Mong thầy rep nhanh , e cảm ơn ạ

Answer 1

Uses crt;

Const fi='dl.int'

Var f1:text;

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

I,n,t: integer;

Begin

Clrscr;

Assign(f1,fi); reset(f1);

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(t);

Close(f1);

Readln;

End.