uses crt; var a:array[1..100] of integer; n,i,dem:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a[i]); if a[i]>5 then inc(dem); end; write('Phan tu lon hon 5 la: '); for i:=1 to n do if a[i]>5 then write(a[i]:4); writeln; write('Co ',dem,' phan tu lon hon 5'); readln end.
