cho mảng A gồm n phần tử nguyên dương (n<=10^5, A(i)<=10^6) -nhập ngẫu nhiên mảng A
1. Tìm kiếm 3 phần tử lớn nhất trong mảng A
2. Tìm kiếm 100 phần tử nhỏ nhất trong mảng A
3. Tìm kiếm 10000 phần tử nhỏ nhất A
4. Sắp xếp tăng dần A
5. Tìm đoạn liên tục có tổng nhỏ hơn 10000 dài nhất
ai giúp mk với đag cần gấp ;))
làm bằng phần mềm pascal nhé
Viết chương trình nhập vào một mảng N và một số nguyên m, cộng ngẫu nhiên các phần tử sao cho số lần cộng là ít nhất và tổng các phần tử lớn hơn hoặc bằng m. In ra màn hình số lần cộng (Tổng các phần tử trong mảng luôn lớn hơn hoặc bằng m)
Nhập vào bàn phím mảng 1 chiều gồm N số nguyên:
1.In ra màn hình giá trị lớn nhất
2. Tính tổng các số chẵn các số chẵn có trong mảng
3. Thông báo có bao nhiêu số âm trong mảng
4. Tính tích các phần tử dương và chia hết cho 3
( mik cần gấp lém :(( )
Bài 1: Viết chương trình nhập số nguyên dương N a) Tính tổng các phần tử là các số chia hết cho 3 và nhỏ hơn N b) Tính trung bình cộng các phần tử là các số chia hết cho 3 và nhỏ hơn N
Cho một dãy số a[n] và số nguyên s, hãy tìm dãy số dài nhất có tổng bằng s, nếu không có thì xuất “KHONG CO”.(0<n<1000; 0<a[i]<=100; 0<s<5000)
Tên file: Daysos.cpp
Dữ liệu vào: Daysos.inp
Dòng đầu chứa số nguyên n và s
Dòng tiếp theo chứa các số nguyên là phần tử của mảng a
Dữ liệu ra: Daysos.out
Dòng đầu là độ dài của dãy số dài nhất có tổng bằng s
Dòng tiếp theo là giá trị của các phần tử có trong dãy
|
Daysos.inp |
Daysos.out |
|
10 11 10 1 1 2 3 4 11 2 3 1 |
6 1 1 2 4 2 1 |
|
10 11 10 2 4 6 8 8 2 4 4 8 |
KHONG CO |
Ai giúp mình bài này với ạ !
Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write('Nhap N= ');Readln (N); Write('Nhap k= '); Readln (k); For i:-1 to n do Begin Write(Nhap a[',I,']= '); Readln(a[i]); If trunc (sqrt (a(i]))=k then Write (i:6); End; Chương trình sẽ đưa ra kết quả gì? b. Với: N=6; k=5 A= 45 56 73 64 55 98 Chương trình sẽ đưa ra kết quả gì? c. Sửa điều kiện lệnh If thành kiểm tra xem a[i] có là số chính phương hay không? (Số chính phương là: x2 = ai. VD 9 = 32; 16 = 42; 81 = 92) Readln; End.
Viết chương trình, cho 1 dãy số nguyên gồm N phần tử (A1,A2,…,AN). Tìm ước chung lớn nhất của dãy số trên.
sử dụng thủ tục Tạo mảng một chiều các số thực 20 phần tử và tính tổng các số chẵn
Viết CT nhập vào 1 mảng và 1 số k, tìm và in ra vị trí bắt đầu, số phần tử của đoạn con có trung bình cộng = k