12.Даны целые положительные числа а1,а2,…,аn.
Найти среди них те, которые являются квадратами числа m.
Решение
program
lab12;
var
a:array
[1..100] of integer;
i,m:integer;
fl:boolean;
begin
writeln('Enter
m');
readln(m);
randomize;
for i:=1
to 100 do
begin
a[i]:=random(100);
write(a[i],'
');
end;
writeln;
fl:=true;
for i:=1
to 100 do
begin
if
a[i]=m*m then begin writeln('Chislo ', a[i],' – kvadrat 4isla ',
m);fl:=false;end;
end;
if fl
then writeln(‘Net takih 4isel’);
end.