Ответы
Ответ дал:
0
Ответ: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.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад