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.
