Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и вычисляет произведение элементов массива с чётными значениями и среднее арифм. элементов массива с нечётными значениями

на Pascalprogram noname;uses crt;constt=10;vara:array[1..t] of byte;i,k:byte;x,n:integer;r:real;beginclrscr;randomize;x:=1; k:=0; n:=0;for i:=1 to t do begina[i]:=random(20-1+1)+1;if (a[i] mod 2=0) then x:=x*a[i]else begin n:=n+a[i]; k:=k+1; end;writeln ('a[',i,']=',a[i]);end;r:=n/k;writeln ('произведение элементов с четным значением=', x);writeln('ср.арифм. элементов с нечетным значением=',r);end.