Из ввода задана числовая последовательность из 10 элементов. Найти среднее арифметическое всех
отрицательных элементов данной последовательности.
Python

Question

Информатика: Из ввода задана числовая последовательность из 10 элементов. Найти среднее арифметическое всех отрицательных элементов данной последовательности. Python

petr113 · Accepted Answer

Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);

    Writeln(n);
end.

Из ввода задана числовая последовательность из 10 элементов. Найти среднее арифметическое всех отрицательных элементов данной последовательности. Python

MOGZ ответил

Из ввода задана числовая последовательность из 10 элементов. Найти среднее арифметическое всех
отрицательных элементов данной последовательности.
Python