Массивы

[Asira]

Дан одномерный целочисленный массив.
Найти сумму элементов массива, являющихся точными квадратами.
Как это можно сделать ?? Есть какие нибудь идеи????

[Armorer]

являющихся точными квадратами

это что значит?

[Asira]

Корень из этого числа точное число ну например 4, 9, 16....

[eoln]

for i := 1 to 10 do
if sqr(trunc(sqrt(mas[i]))) = mas[i] then Sum := Sum + mas[i]

[CodeExpert]

думаю, будет верное в вашем случае -

program kvamas;
uses Crt;
var mas:array[1..100]of integer;
    i,n,s:integer;
begin
ClrScr;
Writeln('Введите кол-во элементов');
Readln(n);
for i:=1 to n do 
 begin
  repeat
  Writeln('Введите элемент',i);
  Readln(mas[i]);
  until mas[i]>0; //воизбежании появления ошибки вычисления отр.корня
  end;
s:=0;
for i:=1 to n do
 begin
  if (sqrt(mas[i])-round(sqrt(mas[i]))=0) then s:=s+mas[i];
 end;
Writeln('Сумма элементов массива, являющихся точными квадратами = ',s);
Readln;
end.

[Asira]

Спасибо !!!!!!!!