uses crt;

var a : array[1..100] of integer;

i, n, tong : longint;

begin

clrscr;

tong := 0;

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

if (n > 0) and (n <= 100) then

begin

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

if (a[i] >= 10) and (a[i] <= 25) then tong := tong + a[i];

end;

write('Cac phan tu gia tri tu 10 - 25 : ');

for i := 1 to n do

if (a[i] >= 10) and (a[i] <= 25) then write(a[i]:4);

writeln; write('Tong pha tu gia tri tu 10 - 25 : ', tong);

end else writeln('Nhap sai gia trị n ');

readln

end.

uses crt;
var i,n,d:longint; a:array[1..100]of longint;
begin
clrscr;
   write('Nhap n(n<=100): ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap A[',i,']: ');readln(a[i]);
      end;
   write('Cac phan tu co gia tri tu 10 den 25: ');
   for i:=1 to n do
      if (a[i]>=10)and(a[i]<=25) then
         begin
            write(a[i],' ');
            d:=d+a[i];
         end;
   writeln;
   writeln('Tong: ',d);
readln
end.