Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
End;
max:=a[1];
for i:=2 to n do
if max < a[i] then max:=a[i]
write('So lon nhat trong day la ',max);
Readln
End.
Viết CT nhập vào một dãy n số nguyên, in ra số lớn nhất trong dãy
ko mảng nha
pls
Cho 1 số nguyên n và dãy sô nguyên a1 đến an hãy viết ct đếm xem trong dãy số đó có bao nhiêu số lớn hơn 5
Hãy xác đinh bài toán sau: "Tìm tích các số trong dãy n số tự nhiên cho trước"?
A. INPUT: Dãy n số tự nhiên. OUTPUT: Số lớn nhất trong dãy n số.
B. INPUT: Dãy n số tự nhiên. OUTPUT: Số các số lớn nhất trong dãy n số.
C. INPUT: Số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.
D. INPUT: Số các số lớn nhất trong dãy n số. OUTPUT: Dãy n số tự nhiên.
nhập dãy gồm n số
a. Tìm số lẻ nhỏ nhất có trong dãy, không có thì xuất ' khong co'
b. Tìm số chẵn lớn hơn 7 có trong dãy.
c. In dãy số đó theo thứ tự số lẻ giảm dần, rồi đến số chẵn tăng dần.
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
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên
Ví dụ 6. Tìm số lớn nhất trong dãy A các số a1, a2, ..., an cho trước.
Ta sẽ dùng biến MAX để lưu số lớn nhất của dãy A. Việc xác định MAX có thể được thực hiện như sau: Đầu tiên gán giá trị a1 cho biến MAX. Tiếp theo, lần lượt so sánh các số a2, ..., an của dãy A với MAX. Nếu ai> MAX, ta gán ai cho MAX.
INPUT: Dãy A các số ai, a¿, ..., a„ (n >]).
OUTPUT: Giá trị MAX = max{ay, 4ạ,..., a„Ì.
Từ đó, ta có thuật toán sau:
Bước 1. MAX← a1; i←1.
Bước 2. Nếu ai> MAX, gán MAX← ai.
Bước 3. i←i+ 1.
Bước 4. Nếu i≤n, quay lại bước 2.
Bước 5. Thông báo giá trị MAX và kết thúc thuật toán.
Dưới đây minh hoạ thuật toán trên với trường hợp chọn thỏ nặng nhất trong bốn chú thỏ có trọng lượng tương ứng là 2, 1, 5, 3 ki-lô-gam.
Ví dụ 6. Tìm số lớn nhất trong dãy A các số a1, a2, ..., an cho trước.
Ta sẽ dùng biến MAX để lưu số lớn nhất của dãy A. Việc xác định MAX có thể được thực hiện như sau: Đầu tiên gán giá trị a1 cho biến MAX. Tiếp theo, lần lượt so sánh các số a2, ..., an của dãy A với MAX. Nếu ai> MAX, ta gán ai cho MAX.
INPUT: Dãy A các số a1, a2, ..., an (n >1).
OUTPUT: Giá trị MAX = max{a1, a2,..., an}.
Từ đó, ta có thuật toán sau:
Bước 1. MAX← a1; i←1.
Bước 2. Nếu ai> MAX, gán MAX← ai.
Bước 3. i←i+ 1.
Bước 4. Nếu i≤n, quay lại bước 2.
Bước 5. Thông báo giá trị MAX và kết thúc thuật toán.
Dưới đây minh hoạ thuật toán trên với trường hợp chọn thỏ nặng nhất trong bốn chú thỏ có trọng lượng tương ứng là 2, 1, 5, 3 ki-lô-gam.
Viết chương trình nhập vào một dãy số. Tìm giá trị lớn nhất trong dãy
