Bài 11: Kiểu mảng

Rage Fury

Viết chương trình:

- Nhập vào một dãy số có độ dài N (N nhập từ bàn phím)

- In dãy số ra màn hình.

- In ra màn hình các số chính phương (số hình vuông) trong dãy số.

Nguyễn Lê Phước Thịnh
11 tháng 8 2020 lúc 13:03

uses crt;

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

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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

for i:=1 to n do

if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Anh Nguyen
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Sói Channel
Xem chi tiết
Minh Trung
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
Nguyễn Thị Bích Huyền
Xem chi tiết
Nhi Hương
Xem chi tiết