Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
vuhieuvy

Viết chương trình cho phép nhập 1 dãy số nguyên từ bàn phím, kiểm tra xem có số nào bằng nhau trong dãy và in số đó ra.

Giúp mình với mình đang gấp

Minh Lệ
31 tháng 5 2020 lúc 21:07

Program HOC24;

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

i,j,n: integer;

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

for j:=i to n do

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

readln

end.


Các câu hỏi tương tự
Uchiha Obito
Xem chi tiết
Bảo Trâm
Xem chi tiết
minh dương
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Phạm Minh
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Huyền Trần
Xem chi tiết
Hằng Trương thị thu
Xem chi tiết