program bai_giai; uses crt; var A:array[1..10000] of integer; n,i,d,t:byte; begin clrscr; for i:=1 to 20 do begin write('A[',i,']= '); readln(A[i]); if A[i]=sqr(trunc(sqrt(A[i]))) then begin d:=d+1; t:=t+A[i]; end; end; writeln('Co ',d' so chinh phuong'); writeln('Tong cac so chinh phuong la: ',t); readln; end.
