Дано n целых положительных чисел. Требуется определить в каком из них самая большая сумма цифр и вывести номер этого числа. Формат входных данныхЦелое положительное число 1 < n < 20;n целых положительных чисел 0 < numN < 2 147 483 648.Формат выходных данныхНомер числа с наибольшей суммой цифр. Если таких чисел несколько, выведите номер первого из них.входные данные 6382759551324667620127025874484605569967926385118099845выходные данные4 python

n = int(input())

m = 0

num = 0

for i in range(n):

   s = sum([int(x) for x in input()])

   if (s > m):

       m = s

       num = i

print(i + 1)

program Prog;

var i, MinElement: Integer;

arr: array[1..15] of Integer;

begin

{ задаем значение минимального элемента. изначально

оно дожно быть максимально возможным, так как мы будем

все элементы с ним сравнить и вычислять, какой из них наименьший.

для этого после того, как мы нашли элемент меньше чем имеющийся минимум,

то мы этот минимум изменяем на найденное нами число }

MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,

но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }

randomize; { это чтоб заполнить рандом. числами }

// запоолнение массива рандомом

for i:=1 to 15 do begin

 arr[i]:=random(100); { для примера числа будут от 0 до 99 }

 { здесь мы как раз сравниваем с имеющимся минимум и меняем его,

 если нашли элемент меньше }

 if arr[i]<MinElement then

  MinElement:=arr[i]

end;

// вывод всего массива

for i:=1 to 15 do

 write(arr[i], ' ');

writeln;

// вывод минимума

writeln('Минимальный элемент: ', MinElement);

end.

Простая программа, для начала мы считаем первое значение сразу в min(это сделано чтобы не давать минимуму значение какой-то константы), затем запускаем цикл, в котором будем вводить число и тут же проверять его на наше условие (поиск минимума). Ну и в конце выводим результат, если что-то непонятно - в комментарии.

var

x, min, i : integer;

begin

writeln('Введите 15 значений: (каждое на новой строке): ');

readln(min);

for i := 1 to 14 do

   begin

   readln(x);

   if min > x then

       min := x;

   end;

writeln('Минимальное число в последовательности:', min);

end.