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.

chương trình:

uses crt;
var a: array[1..100] of integer;
    i,n,j: integer;
begin
  clrscr;
    write ('nhap so phan tu cua mang: ');  readln (n);
    for i:=1 to n do
      begin
        write ('nhap phan tu thu ',i,': ');  readln (a[i]);
      end;
    write ('Cac so chinh phuong co trong day: ');
    for i:=1 to n do
     for j:=1 to i do
      if sqrt(a[i])=j then write (a[i],'  ');
 readln;
end.

thuật toán này mình tự "phát minh" nha:

b1: nhập số phần tử của mảng (n)

b2: nhập giá trị cho các phần tử của mảng (a[i])

b3: cho i chạy từ 1 đến n

      và cho j chạy từ 1 đến i

       nếu căn bậc hai của phần tử a[i] bằng j{j ở đâu là số nguyên chạy từ 1 đến i} thì i là số chính phương bằng a[i] mũ 2

b4: in kết quả ra màn hình và kết thúc thuật toán