uses crt;
var i,n,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] =10 then s:=s+1;
 end;
write('day so da nhap la:');
for i:=1 to n do write(a[i]:3);
writeln;
if s>0 then
begin
 write('cac so co gia tri bang 10 la:');
 for i:=1 to n do
  if a[i] =10 then write(a[i]:3);
end;
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
var n,i,t: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('N='); readln(n);
    for i:=1 to n do begin
        write('Phan tu thu ',i,': ');
        readln(a[i]);
    end;
    write('Day vua nhap: ');
    for i:=1 to n do write(a[i],' ');
    writeln;
    for i:=1 to n do if a[i] = 10 t:=1;
    if t=1 then begin
    write('Cac phan tu co gia tri 10: ');
    for i:=1 to n do if a[i] = 10 then write(a[i],' ')
    end
    else write('khong co phan tu 10 trong day');
    readln
end.