Question

составьте программу ввода с клавиатуры элементов массива а [1..10] и вывода на экран элементов, значения которых являются квадратами целых чисел

Answer 1

var

a:array [1..10] of longint;

i:integer;

x:real;

begin

for i:=1 to 10 do readln(a[i]);

writeln('================================================');

for i:=1 to 10 do begin

x:=sqrt(a[i]);

if sqr(x)=a[i] then write (a[i],'  ');

end;

readln;

end.