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

я бы сделал иначеfor i:= 1 to N doBegin    if A[i] mod 2 = 1 then    Begin        x:=x+1;        y:=y+A[i];    End;End;S = y/x;WriteLn(S);немного логичнее.