Программа

[Saba]

Народ помогите!!!!Сделайте ету задачу!Ну типа напишите прогу в TP!Вот и сама задача!Мне для школЫ! очень надо помогите! ВОТ

Скласть алгорит и написать программу: вот сама задача

у таблице есть А[1:100]записаны случайным чином нули и единицы.Заменить 0 на 1, а 1 на 0!помогите умоляю позарез нада!!!! :blush2: :) :) :)

[Тролль]

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. 

[Saba]

Огромнейшое спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :blush2: