viết chương trình tính tổng các giá trị trên mảng một chiều có 10 phần tử có giá trị trong khoảng 1 đến 200

program oken;

uses crt;

var a: array [1..10] of byte;

      i,s:longint;

begin

clrscr;

writeln('nhap gia tri cua 10 phan tu');

for i:=1 to 10 do

begin

write('a[',i,']: '); readln(a[i]);

s:=s+a[i];

end;

writeln('Tong cua 10 phan tu : ',s);

readln;

end.

program mang1c;
uses crt;
var i:integer;
   A:array[1..10] of integer;
   s:integer;
BEGIN
clrscr;
writeln('Nhap mang A co cac phan tu trong khoang 1-200');
for i:=1 to 10 do
 begin
  write('A[',i,']= '); readln(A[i]);
  if (A[i]<1)or(A[i]>200) then
  begin
   write('Nhap lai A[',i,']= '); readln(A[i]);
  end;
 end;
 s:=0;
for i:=1 to 10 do
 s:=s+A[i];
writeln('Tong cac phan tu cua mang la:',s);
readln
END.