uses crt;

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

i, n, s, s1 : integer;

begin

clrscr;

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

s := 0; s1 := 0;

for i := 1 to n do

begin

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

s1 := s1 + a[i];

if sqr(trunc(sqrt(a[i]))) = a[i] then s := s + a[i];

end;

writeln('Tong cac phan tu : ', s1);

writeln('Tong so chinh phuong : ', s);

readln

end.

#minh gửi code  pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá 
#code pascal 

uses crt;
var a:array[1..100] of integer;
sum,sum1,i,n: integer;
begin
clrscr;
sum:=0;
sum1:=1;
write('nhap n : ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
sum:=sum+a[i];
writeln('tong cac phan tu trong day la : ',sum);
for i:=1 to n do
if sqr(trunc(sqrt(a[i]))) = a[i] then
sum1:=sum1+a[i];
writeln('tong so chinh phuong la : ',sum1 );
readln;
end.