Program HOC24;
var a: array[1..32000] of longint;
i,n,max: integer;
function uoc(x: longint): integer;
var d: integer;
begin
d:=0;
for i:=1 to x do if x mod i=0 then d:=d+1;
uoc:=d;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=uoc(a[1]);
for i:=2 to n do
if uoc(a[i])>max then max:=uoc(a[i]);
write(max);
readln
end.
Em hãy viết chương trình sử dụng biển mảng đề nhập các phần tử của dãy số gồm n phần tử, kiểm tra xem dãy số đã cho có bao nhiều số nguyên dương và bao | nhiều số nguyên âm
vieết chương trình nhập số tự nhiên n và dãy các số nguyên a1,a2,..,an từ bàn phím sắp xếp các số âm trong dãy theo thứ tự tăng , các số , còn lại giữ nguyên thứ, thông báo ra màn hình dãy sau khi đã sắp xếp . ràng buộc 0<=n<=10, |ai|<=10^4
ai giúp mình với ạ mình cần gấp lắm ạ
Viết chương trình nhập một dãy gồm N (0<N≤1000)số nguyên a1,a2,a3,...aN và một số nguyên B . Đếm số lần xuất hiện của số nguyên N trong dãy số đã nhập
Dữ liệu vào:Nhập từ bàn phím
-Dòng đầu đọc số nguyên N
-Dòng thứ hai là các số của dãy cách nhau một khoảng trắng theo thứ tự a1,a2,a3,..aN
-Dòng thứ ba nhập số nguyên B
-kết quả ra:Xuất ra màn hình:Tổng số lần xuất hiện của B
Ví dụ :
Dữ liệu vào:9,2,4,3,1,5,4,1,1,9,1
Kết quả:3
a.Đếm phần tử xuất hiện nhiều nhất và số lần xuất hiện của nó trong mảng ?
b.Xếp lại dãy đó theo thứ tự tăng dần.Chèn số nguyên X vào dãy sao cho dãy vẫn giữ được thứ tự tăng dần(không được sắp xếp lại )
c.Tìm số nguyên Y và xoá số Y trong mảng trên (giúp em với ạ)
Viết chương trình nhập vào một dãy số nguyên a gồm có k phần tử (0 <= k <=100), viết đoạn chương trình xử lý các công việc: a. Tìm và in ra số lớn nhất, số bé nhất trong dãy a, vị trí của các số này. b. Đọc một số x từ bàn phím (0 <= x <= 500), chèn x vào dãy sao cho thứ tự dãy không đổi, in dãy sau khi chèn và vị trí đã chèn x vào dãy.
em hãy viết chương trình nhập vào n số nguyên (0<N<688886)a1,a2,a3 ;...an(-9 tỷ tỷ<=ai<=+9 tỷ tỷ) vào từ bàn phím. in ra màn hình dãy số vừa nhập , số lớn nhất có trong dãy , vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên 1 dòng .ví dụ:nhập vào n = 5;các phần tử a1= 500; a2=125 ; a3=300;a4=25;a5=500;kết quả trên màn hình là : 100 125 300 25 500 500 1 5 2
Giup mình với
a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhập
b) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã nhập
Giải giúp mình bài tập tin này với ạ. Cho 1 dãy số nguyên m gồm 5 phần tử.Em hãy viết chương trình: a)Nhập giá trị cho các phần tử của dãy số. b)In các phần tử của dãy số trên cùng 1 dòng.
1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)
2/viết chương trình nhập dãy số gồm n số nguyên.
a. Tính tổng các phần tử của dãy.
b. In ra màn hình các phần tử là số chẵn hoặc lẻ.
[Giúp mình với mình đang cần gấp mai là mình thì rồi. Cảm ơn mn trước ạ]
Dãy số A1, A2,...,AN được gọi là dãy số đặc biệt nếu nó thỏa mãn các điều kiện sau:
- Là dãy số giảm
- Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai+1.
Hãy tìm dãy số đặc biệt dài nhất với phần tử đầu tiên bằng N ( 0 < N ≤100)
Mong mn giúp đỡ!
