Vct nhập mảng n phần tử. Xuất ra các số chính phương trong mảng đếm xem coi có bao nhiêu số chính phương trong mảng
Vct nhập mảng n phần tử. Xuất ra các số chính phương trong mảng đếm xem coi có bao nhiêu số chính phương trong mảng
uses crt;
var i,j,dem,n:integer;
a : array[1..1000] of integer;
begin
clrscr;
write(‘Nhap do dai mang: ‘);readln(n);
writeln(‘Nhap ‘,n,’ phan tu cua mang:’);
dem:=0;
for i:= 1 to n do
begin
write(‘a[‘,i,’] = ‘);readln(a[i]);
end;
writeln(‘Cac so chinh phuong co trong mang:’);
for i:= 1 to n do
for j:= 1 to n do If j*j = a[i] then
begin
write(a[i],’ ‘);
dem:=dem+1
end;
writeln;
writeln(‘Co ‘,dem,’ so chinh phuong trong mang’);
readln;
end.