1)Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все нечетные элементы, начиная с конца. Вычислить их произведение
2)Вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (Вмассиве 20 элементов, заполнен случайными числами.)
3)Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .Вывести на экран, посчитать количество положительных чисел

Это 3 разные программы, все проверил на pascal abc.net, удачи)1)uses crt;var a:array [1..10] of integer;i,n,t:integer;beginclrscr;n:=10;for i:=1 to n do begin read(a[i]); end; t:=1;for i:=n downto 1 do begin  if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end;end;writeln('Произведение нечетных элементов=',t);readln;end.2) uses crt;var a:array [1..20] of integer;i,n,t:integer;beginrandomize;clrscr;n:=20;for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end;t:=0;for i:=1 to n do begin if i mod 2=1 then begin write(a[i],' '); t:=t+a[i]; end;end;writeln('Сумма четных элементов=',t);readln;end.3)uses crt;var a:array [1..20] of integer;i,n,t:integer;beginrandomize;clrscr;n:=20;for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end; t:=0;for i:=1 to n do begin if a[i]>0 then begin t:=t+1; end; end;writeln('Кол-во положительных элементов=',t);readln;end.