1. задайте массив из 10 элементов с датчика случайных чисел. замените все нечетные элементы с четными индексами на нули. выведите на экран исходный и полученный массивы. 2. задайте массив из 10 элементов с датчика случайных чисел. замените все его положительные элементы на наибольший отрицательный элемент. выведите на экран исходный и полученный массивы.

№1var r,n:integer;C:Array[0..9]of integer;Beginfor r:=0 to 9 do beginC[r]:= random(50)-25;  write(C[r]:4);if (abs(C[r]) mod 2 = 1)and (r mod 2 = 0) then C[r] := 0;end;writeln;foreach n in C dowrite(n:4);end.№2var r,n,m,max,k:integer;C:Array[0..9]of integer;Beginmax:=-30;for r:=0 to 9 do beginC[r]:= random(50)-25;  write(C[r]:4);if (C[r] < 0) and (max < C[r]) then max := C[r];end;writeln;for r:=0 to 9 do beginif C[r] > 0 then  C[r]:= max;end;writeln;foreach n in C dowrite(n:4);end.