Tin học Bài tập mảng pascal

[tydfdg]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào dãy số N phần tử viết chương trình in ra các số chính phương

 

[Tạ Đặng Vĩnh Phúc]

var a:array[1..100] of integer;
i : integer;
begin
writeln ('nhap vao n = '); readln (n);
for i:=1 to n do
begin
write ('a[',i,']= '); readln (a);
end;
for i := 1 to n do
if (sqr (trunc(sqrt(a))) = a) then write (a, ' ');
readln;
end.