Паскаль,массивы

[Kate18]

Доброго времени суток!Объясните пожалуйста как решить эту задачу (язык программирования-Паскаль).
Даны целые числа a1,a2...Известно,что a1 больше 0 и что среди а2,а3...,есть хотя бы одно отрицательное число.пусть а1,...аn-члены данной последовательности,предшествующие первому отрицательному члену(n заранее не известно)получить количество полных квадратов среди a1,...an.
Заранее благодарна

[Serge_Bliznykov]

нужно перебирать все элементы массива, пока не встретится отрицательное число.
для каждого элемента нужно проверять, является ли это число полным квадратом.
на Паскале это можно записать так:

if(sqr(trunc(sqrt(a[i])))=a[i]) 
then  // является полным квадратом
else  // не является