Input: Dãy số cần đếm số lượng số chính phương
Output: Số lượng số chính phương của dãy
*Thuật toán:
B1: Nhập số lượng phần tử n và giá trị của các phần tử của dãy
B2: dem←0; i←1;
B3: Nếu A[i]=sqr(trunc(sqrt(A[i]))) thì dem←dem+1;
B4: i←i+1; nếu i<=n thì quay lại B3;
B5: in dem và kết thúc.
*Chương trình
Có thể làm ngắn hơn nhưng làm gộp có thể bạn khó hiểu nên mình làm từng ý luôn nha
program demchinhphuong;
var A:array[1..1000] of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
end;
dem:=0;
for i:=1 to n do
if A[i]=sqr(trunc(sqrt(A[i]))) then dem:=dem+1;
write('Trong day co ',dem,' so chinh phuong');
readln;
end.
