Решить . с клавиатуры вводятся n целых произвольных чисел. определить, есть ли среди них точные квадраты? ( на языке c++ или c )

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

min і max нужно присвоить а[1].

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.