viết chương trình nhập N số nguyên từ bàn phím .in ra màn hình tổng các số vừa nhập giúp mỉnh với

program ct;

uses crt;

var i,n,T:integer;

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

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

write(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

end;

T:=0;

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

writeln(‘tong cac so la:=’,T);

readln

end.

Chúc bạn học tốt

Cho mình xin 5 sao và ctlhn ạ