Даны натуральное число n и последовательность целых чисел а1, а2, ..., аn. Найти кол-во чисел ai (i=1,2 ... n) являющихся полными квадратами

program zz1;

const n = 5; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

a:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

a[i]:=random (51);

for i:=1 to n do / / выводим исходный массив на экран в строку

write (a[i], ' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if frac (sqrt (a[i])) = 0 then k:=k + 1; / / проверяем, если корень квадратный от числа дает в дробной части ноль, то считаем это число

write (' кол-во чисел ai (i=1,2 ... n), являющихся полными квадратами = ', k); / /выводим ответ

end.