Question

Дан массив чисел А [20]. Найти среднее арифметическое НЕЧЁТНЫХ элементов.
ПАСКАЛЬ.

Answer 1

Ответ:Const

 n=10;

Var

 a: Array[1..n] of Integer;

 i,k: Byte;

 s: Integer;

BEGIN

Writeln('Введите массив:');

For i:=1 to n do

begin

 Readln(a[i]);

 If odd(a[i]) Then

 begin

   s:=s+a[i];

   Inc(k);

 end;

end;

Writeln('Ср. арифм. нечетных = ',s/k:2:2);

Readln

END.

Объяснение: