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

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.

program ct;

uses crt;

var A:array[1..250] of integer;

      i,n,S:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do 

     begin 

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

   write('Mang vua nhap la: ');

   for i:=1 to n do

     begin

        write(A[i]:3);

        S:=S+A[i];

     end;

   writeln;

   writeln('Tong la: ',S);

readln;

end.

Học tốt!