Saba Posted January 19, 2009 Report Share Posted January 19, 2009 Народ помогите!!!!Сделайте ету задачу!Ну типа напишите прогу в TP!Вот и сама задача!Мне для школЫ! очень надо помогите! ВОТ Скласть алгорит и написать программу: вот сама задача у таблице есть А[1:100]записаны случайным чином нули и единицы.Заменить 0 на 1, а 1 на 0!помогите умоляю позарез нада!!!! :blush2: :) :) :) Link to comment Share on other sites More sharing options...
Тролль Posted January 19, 2009 Report Share Posted January 19, 2009 Saba: Не волнуйся так :blush2:. И для таких вопросов есть среди Важных специальная тема Заказы "Сделайте все за меня", А вдруг прокатит?, в следующий раз используй ее. А программа - вот она, чин чином: var I:byte; A:array[1..100]of byte; begin randomize; for I:=1 to 100 do A[i]:=random(2);for I:=1 to 100 do write(A[i]:2); writeln; writeln;for I:=1 to 100 do A[i]:=1-A[i]; for I:=1 to 100 do write(A[i]:2); writeln; readlnend. Link to comment Share on other sites More sharing options...
Saba Posted January 19, 2009 Author Report Share Posted January 19, 2009 Огромнейшое спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :blush2: Link to comment Share on other sites More sharing options...
Recommended Posts