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

uses crt const N=20; type ARR = array [0..N] of Integer; var i,res,k: Integer; a,b: ARR; begin clrscr; randomize; for i:=1 to N do a:=random(40); WriteLn(Дан целочисленный массив: ); Write(a[); for i:=1 to N do Write(a, ); WriteLn(]); Write((Для продолжения нажмите Enter)); ReadLn; WriteLn(Обретаем среднее арифметическое нечетных чисел. ); res:=0; k:=0; WriteLn(Находим все нечетные числа: ); for i:=1 to N do begin if odd(a) then begin Write(a, ); res:=res+a; inc(k); end; end; WriteLn; WriteLn(Среднее арифметическое: , (res/k):4:2); Write((Для продолжения нажмите Enter)); ReadLn; Write(Обретаем числа, не превосходящие 10: ); res:=0; for i:=1 to N do begin if alt;=10 then begin Write(a, ); res:=res+a; end; end; if res=0 then Write (Таких чисел нет : ( ) else begin WriteLn; Write(Сумма чисел: , res); end;