4. дан массив из n элементов. в нем четные числа заменить на 0, а нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.
Const N=10; Var A: array[1..N] of integer; i: integer; Begin For 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.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(t->t.IsOdd?-1:0); a.Println
end.
Пример
n= 17
37 43 -6 -12 11 -50 30 -49 -35 -29 28 24 29 -11 -50 -29 -10
-1 -1 0 0 -1 0 0 -1 -1 -1 0 0 -1 -1 0 -1 0
N=10;
Var
A: array[1..N] of integer;
i: integer;
Begin
For 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.