BH

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?

NT
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ự
DV
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
TT
Xem chi tiết
HT
Xem chi tiết
TD
Xem chi tiết
DC
Xem chi tiết
PT
Xem chi tiết
HK
Xem chi tiết