В произвольно заданном одномерном 1. В произвольно заданном одномерном массиве…

1.vara: array [0… 12] of integer; i, k: byte; min: integer; begin Randomize; for i: =0 to 12 do begin a[i]: =random (15) -4; write (a[i]: 4); end; min: =a[0]; for i: =1 to 12 do if a[i] < min then begin min: =a[i]; k: =i; end; writeln; writeln ('Min v pozicii ', k, '=', a[k]); readln; end.2.vara: array [1… 6] of integer; i: byte; beginfor i: =1 to 6 dobegin write (i, '='); readln (A[i]); end; writeln; for i: =1 to 6 dobegin if i mod 2=0 then A[i]: =0; write (A[i], '); end; readln; end.