Question

Nhập vào một mảng gồm N phần tử. Xuất ra màn hình các số chính phương trong mảng

Answer 1

program so_chinh_phuong;

uses crt;

var n,i,x:integer;

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

begin

clrscr;

write('Nhap so phan tu N=');readln(n)

writeln('Nhap cac phan tu trong mang:');

for i:=1 to n do

begin

writeln('a[',i,']=');readln(a[i]);

end;

writeln('Cac so chinh phuong trong mang la:');

for i:=1 to n do

begin

x:=trunc(sqrt(a[i]));

if sqr(x)=a[i] then write(a[i],' ');

end;

readln;

end.

Answer 2

Bạn thêm dấu chấm phẩy theo sau dòng readln(n) nha tại mình thiếu