Question

Дана непустая последовательность натуральных чисел, за которой следует 0. Составить программу поиска в данной непустой последовательности порядкового номера наибольшего элемента. (Использовать while!!!) HELP PLEASE!!

Answer 1

Program z;
var x,max,n,k:integer;
begin
x:=-1;
max:=-1;
n:=0;
k:=0;
while x<>0 do
begin
readln(x);
k:=k+1;
if x>max then begin max:=x; n:=k; end;
end;
writeln(n);
end.

Answer 2

Конечно, помогу вам написать программу наибольшего элемента в данной последовательности с использованием цикла while. Программа будет принимать числа от пользователя до тех пор, пока не будет введен 0, и затем найдет порядковый номер наибольшего элемента.

Вот программа на языке Python:

pythonCopy code
def find_max_index():
    sequence = []
    num = int(input("Введите натуральное число (для завершения ввода введите 0): "))

    while num != 0:
        sequence.append(num)
        num = int(input("Введите натуральное число (для завершения ввода введите 0): "))

    if not sequence:
        print("Последовательность пустая.")
        return

    max_num = sequence[0]
    max_index = 0
    index = 0

    while index < len(sequence):
        if sequence[index] > max_num:
            max_num = sequence[index]
            max_index = index
        index += 1

    print(f"Наибольший элемент: {max_num}")
    print(f"Порядковый номер наибольшего элемента: {max_index + 1}")

find_max_index()

Программа начинает вводить числа и сохраняет их в sequence до тех пор, пока не будет введен 0. Затем она ищет наибольший элемент в sequence и выводит его значение, а также порядковый номер наибольшего элемента (отсчет с 1, так как пользователь ввел 0 для завершения последовательности).