Nhập vào số nguyên dương N và dãy gồm N số nguyên. 1. Hiển thị dãy vừa nhập lên màn hình. 2. tính tổng giá trị các phần tử của mảng. 3. Ghi kết quả vào tệp mảng TOC Giúp mk.. Huhu

program Tin_hoc;

uses crt;

var i,n,tong:integer;

      A : array[1..10000] of integer

begin

clrscr;

write('N=');readln(n);

tong:=0;

writeln('Nhap ',n,' phan tu:');

for i:= 1 to n do

begin

readln(A[i]);

tong:=tong+A[i]

end;

writeln('Day vua nhap:');

for i:= 1 to n do write(a[i],'   ');

writeln;

writeln('Tong cac gia tri cua mang la: ',tong);

readln;

end.

uses crt;

var i,n,tong:integer;

      A : array[1..10000] of integer

begin

clrscr;

write('N=');readln(n);

tong:=0;

writeln('Nhap ',n,' phan tu:');

for i:= 1 to n do

begin

readln(A[i]);

tong:=tong+A[i]

end;

writeln('Day vua nhap:');

for i:= 1 to n do write(a[i],'   ');

writeln;

writeln('Tong cac gia tri cua mang la: ',tong);

readln;

end.