Bùi Ngọc Khánh Huyền

1. Viết chương trình nhập vào n số nguyên từ bàn phím. Hãy in ra màn hình
các số chính phương có trong dãy vừa nhập? Cho biết số lớn nhất trong dãy?

Nguyễn Lê Phước Thịnh
6 tháng 8 2023 lúc 17:39

uses crt;

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

i,n,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

ln:=0;

for i:=1 to n do

if trunc(sqrt(A[i]))=sqrt(a[i]) then 

begin

write(a[i]:4);

if ln<A[i] then ln:=A[i];

end;

writeln;

writeln('So chinh phuong lon nhat la: ',ln);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
Đức Vượng
Xem chi tiết
 ohsusu
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Thwn Dayy
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Phan Thu
Xem chi tiết
hoàng kim
Xem chi tiết