Question

[Dương Mạnh Hoàng]

Cho mảng gồm n số nguyên a1, a2, a3, ...., an. Hãy lập trình để đếm xem trong mảng có bao nhiêu số chính phương? Em hãy viết đoạn chương trình nhập các phần tử của mảng bài toán trên. 

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

readln(n);

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

dem:=0;

for i:=1 to n do  

if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);

writeln(dem);

readln;

end.