viet chuong trinh tinh tong cac so trong doan tu 3 den 9 trong day so nguyen nhap tu ban phim
1 câu trả lời
var a: array[1..250] of integer;
S: word;
i, n: byte;
Begin
Write('n = '); readln(n);
S:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
if (a[i]>=3) and (a[i]<=9) then
S:=S+a[i];
End;
Write('tong la: ', s);
Readln
End.
