Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечётных чисел. только чтобы правильно

// pascalabc.net 3.3.5, сборка 1662 (29.04.2018)

begin

println($'среднее арифметическое : {arrrandominteger(40,0,20).println.where(e-> e.isodd).defaultifempty.average}')

end.

// freepascal

var

a: array[0..39] of integer;

i, c, s: integer;

begin

randomize;

for i : = 0 to 39 do

begin

a[i] : = random(21);

write(a[i],' ');

if (a[i] mod 2 < > 0) then

begin

inc(c);

s : = s + a[i];

end;

end;

writeln;

if c< > 0

then writeln('среднее арифметическое: ',s/c)

else writeln(0);

end.

// c++

#include < iostream>

#include < ctime>

using namespace std;

int main()

{

setlocale(lc_all, "russian");

int a[40];

double c = 0, s = 0;

srand(time(0));

for (int i = 0; i < 40; i++) {

a[i] = rand() % 21;

cout < < a[i] < < " ";

if (a[i] % 2 ! = 0) {

c++;

s += a[i];

}

}

if (c! =0) cout < < "\nсреднее арифметическое = " < < s / c < < endl;

else cout < < "\nсреднее арифметическое = 0 " < < endl;

system("pause");

return 0;

}

200 символов

Объяснение: