Вопрос по информатике:
Одномерный массив состоит из нулей и единиц. Заменить нули на единицы и единицы на нули в данном массиве
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.12.2015 17:18
- Информатика
- remove_red_eye 15266
- thumb_up 36
Ответы и объяснения 2
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.
- 11.12.2015 14:03
- thumb_up 33
Pascal ABC
Const
N=30;
Var
A:array[1..N]of byte;
i:byte;
Begin
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]=0 then A[i]:=1
else A[i]:=0;
Write(A[i],' ')
End
End.
- 12.12.2015 16:16
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.