Jump to content
СофтФорум - всё о компьютерах и не только

Программа


Saba
 Share

Recommended Posts

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

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

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

Link to comment
Share on other sites

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

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...