Одномерный массив состоит из нулей и единиц. Заменить нули на единицы и единицы на нули в данном массиве
Answers & Comments
simbion0
Var A:array [1..1000] of integer; i,n:integer; Begin Readln(n); For i:=1 to n do begin A[i]:=Random(2); Write(A[i],' '); end; Writeln; For i:=1 to n do begin if A[i]=1 then A[i]:=0 else A[i]:=1; Write(A[i],' '); end; end.
Answers & Comments
A:array [1..1000] of integer;
i,n:integer;
Begin
Readln(n);
For i:=1 to n do begin
A[i]:=Random(2);
Write(A[i],' ');
end;
Writeln;
For i:=1 to n do begin
if A[i]=1 then A[i]:=0 else A[i]:=1;
Write(A[i],' ');
end;
end.