Question

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

Answer 1

Program Pr1;
uses crt;
var mas:array[1..40] of integer;
i:integer;
v:real;
Begin
clrscr;
v:=0;
randomize;
for i:=1 to 40 do mas[i]:=random(21);
for i:=1 to 40 do v:=v+mas[i];
v:=v/40;
writeln(v);
end.