Viết chương trình nhập vào 1 dãy số nguyên có 20 phần tử. Tìm các số là số chính phương ở trong dãy ( số chính phương là các số có giá trị bằng bình phương số khác. Ví dụ: 4,9,…)
– mng giúp em, em đang cần gấp
( chương trình viết theo Array nha mng)
Uses Crt;
Var a:array[1..20] of byte
i,x: integer;
Begin
For i:=1 to 20 do
Begin
Write(‘ Nhap a[‘,i,’] =’);
Readln(a[i]);
End;
writeln(‘ Cac so chinh phuong la:’);
For i:=1 to 20 do
begin
x:= trunc(sqrt(a[i]));
if sqr(x)= a[i] then write(a[i],’ ‘);
end;
readln;
end.