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) или в виде блок-схемы. В этом случае вы должны
использовать те же самые исходные данные и переменные, какие были предложены в
условии (например, в образце, записанном на естественном языке).

1

Ответы и объяснения

2014-02-04T16:24:21+04:00
Я бы сделал иначе

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);

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