Другие языки программирования и технологии

помогите написать программку которая определяет среднее арифметическое непарных элементов массива.

Во-первых, пишите задание по-русски. Это русскоязычный ресурс и многие не знают украинского. См. например ответ Gammamad.
По-русски ваше задание: "помогите написать программку, которая определяет среднее арифметическое нечётных элементов массива. "

Во-вторых, указывайте язык программирования. Хотя алгоритм решения от него не зависит, но реализация программы в разных языках выглядит по-разному.
Например, так она будет выглядеть на XDS Oberon-2:

<*+ MAIN *>
MODULE N67045428;
IMPORT
InOut, SRealIO, Random, TimeConv, STextIO;
VAR
i, n, k, s:INTEGER;
a:POINTER TO ARRAY OF INTEGER;
c:CHAR;
BEGIN
Random.InitSeed(TimeConv.millisecs());
n := SHORT(ENTIER(Random.Uniform() * 91) + 10);
InOut.WriteString("Дан массив из ");
InOut.WriteInt(n, 1);
InOut.WriteString(" элементов: ");
InOut.WriteLn;
NEW(a, n);
s := 0;
k := 0;
FOR i := 0 TO n - 1 DO
a^[ i ] := SHORT(ENTIER(Random.Uniform() * 101));
InOut.WriteInt(a^[ i ], 4);
IF a^[ i ] MOD 2 # 0 THEN
s := s + a^[ i ];
INC(k);
END;
END;
InOut.WriteLn;
InOut.WriteString("Сумма нечетных элементов = ");
InOut.WriteInt(s, 1);
InOut.WriteLn;
InOut.WriteString("Кол-во нечетных элементов = ");
InOut.WriteInt(k, 1);
InOut.WriteLn;
InOut.WriteString("Среднее арифметическое нечетных элементов = ");
SRealIO.WriteFixed(s / k, 4, 1);
STextIO.ReadChar(c);
a := NIL;
END N67045428.

И в-третьих, необходимо указывать дополнительные требования к программе: параметры массива и его элементов, способ ввода или формирования массива, ограничения на действия пользователя и т. д. и т. п.
ZE
Zhenys Ermukanov
51 590
Лучший ответ
эт легко. пишите цикл, а в цикле проверку на парность и если число парное - добавляем его к сумме, потом делим сумму на количество эллементов
а что есть парность или непарность элементов? уникальность по значению?
Viktor Nicolaichyk
Viktor Nicolaichyk
2 731

Похожие вопросы