4. Дан массив из N элементов. В нем четные числа заменить на 0, а нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.

извините,но мне нужна старая сборка(

Какая сборка Вам нужна, про то в вопросе пишут. Вы вообще даже не указали, что Вам паскаль нужен))))

Не сообразил

Ну так сами же виноваты, верно?

Не отрицаю в ни в коем случае

Const N=10;Var A: array[1..N] of integer;i: integer;BeginFor i:=1 to N do Read(A[i]);For i:=1 to N do Write(A[i],' ');Writeln;For i:=1 to N do If A[i] mod 2=0 Then A[i]:=0 Else A[i]:=-1;For i:=1 to N do Write(A[i],' ');End.