Question

1) Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение. Гарантируется, что хотя бы один такое элемент в массиве есть. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Паскаль Естественный языкconst N=30;var a: array [1..N] of integer; i, x, y: integer; s: real;begin for i:=1 to N do readln(a[i]); ...end.Объявляем массив A из 30 элементов. Объявляем целочисленные переменные i,x, y и вещественную переменную s. В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й. ...В качестве ответа вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Borland Pascal 7.0) или в виде блок-схемы. В этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).

Answer 1

Я бы сделал иначе

for i:= 1 to N do
Begin
    if A[i] mod 2 = 1 then
    Begin
        x:=x+1;
        y:=y+A[i];
    End;
End;
S = y/x;
WriteLn(S);

немного логичнее.