1.program z; var a: array [1..10] of integer; i,t: integer; s: real; begin for i: =1 to 10 do begin a[i]: =random(1,100); write(a[i]: 4); if (odd(i)) and (odd(a[i])) then begin s: =s+a[i]; t: =t+1; end; end; writeln; write('cреднее арифметическое = ',s/t); end. 2.program z; var a: array[1..10] of integer; max,i: integer; begin writeln('исходный массив'); for i: =1 to 10 do begin a[i]: =random(1,100); write(a[i]: 4); if a[i]> max then max: =a[i]; end; writeln; writeln('измененный массив'); for i: =1 to 10 do begin if not(odd(a[i])) then a[i]: =max; write(a[i]: 4); end; end.