Question

Очень срочно!!! Помогите, пожалуйста=))

Answer 1

5. Program proisvednechet; Val: a: array[1..100] of integer; p: integer; Begin Write (СКОЛЬКО ЭЛЕМЕНТОВ? '); Readhi (n); P:=1; For i=1 to ii do begin a[i]:= Random(46)-19; wnteln (a[i],"); if i mod 2 o 0 then P=P*a[i]; end; Writehi(ПРОИЗВЕДЕНИЕ  ЭЛЕМЕНТОВ С НЕЧЕТНЫМИ НОМЕРАМИu:', P); End.