помогите пажалуйста. очень надо решить!!!!!

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

1

Ответы и объяснения

2012-10-27T11:51:09+00:00

var

a:array [1..40] of integer;

k,i,s:integer;

sr:real;

begin

randomize;

for i:=1 to 40 do begin

a[i]:=random(21);

write (a[i],' ');

end;

writeln;

for i:=1 to 40 do

if odd(i)=true then begin

k:=k+1;

s:=s+a[i];

end;

sr:=s/k;

writeln (sr:3:4);

readln;

end.