Люди с информатикой.
Составить программу нахождения минимального элемента и его номера в массиве вещественных чисел не более 50, задаваемых вводом с клавиатуры.

Что бы автоматически читать числа по одному в строке до определённого ввода, можно сделать цикл:

lst = []

x = int(input())

while x != 0:

   lst.append(x)

   x = int(input())

Такая конструкция позволит вам читать поток входных данных любой длины до момента ввода какого то числа.

Если вы хотите вводить числа просто через пробел, то можно использовать метод split() для строки считываемого входного потока, и полученный список строковых чисел уже приводить потом к нужному типу:

lst = input().split() # -> list of <str>

lst = list(map(int, lst)) #-> list of <int>

Ну, или в одну строку: lst = list(map(int, input().split()))

Так же вы можете считывать и автоматически приводить к нужному типу входные данные используя особую питоновую магию в виде генераторов списков:

lst = [int(i) for i in input().split()] # -> list of <int>

Функций, позволяющих считывать входной поток до определённого ввода, точнее, позволяющих организовать такой ввода в одну строку, я не встречал

Объяснение:

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.