Question

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

Answer 1

Program n1;
Uses CRT;
Const n=40;
Var a:array[1..n] of integer;
i,s,k: integer;
begin
ClrScr;
For i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
if a[i] mod 2=1 then
begin
k:=k+1;
s:=s+a[i];
end;
end;
Writeln('Summa =',s,' Kolvo =',k,' Srednee arifm = ',s/k:4:4);
readln
end.