Информатика, опубликовано 2018-08-22 23:23:16 by Гость
Одномерный массив состоит из нулей и единиц. Заменить нули на единицы и единицы на нули в данном массиве
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на