В колонках играет - на работе нет колонок)))
Настроение сейчас - ±

Сижу пишу програмку на паскале (да-да и не кидать в меня тухлые помидоры). Вот задание это ваааще кадр:

Составить прогу содержащую процедуру, исходными данными которой являeтся массив C из n элементов...
Массив Р получают из С по правилу: заменить на 0 все элементы до 1 отрицательного, который заменить на 1, а все остальные заменить их модулями

хз половина что значит, так еще тут опрос можно устраивать для чего она нужна... Да и языка этого не знаю)) ну ладно начем что такое модули.. явно что-то не програмное. Так оказалось это такая хрень: было -1 стало +1 было +1 так и осталось (так Detonator обьяснил, ему он кстати и нужна [для лабы]), ну вроде все легко... делаем функцию в ней for и готово, так куда возвращать значания, помоему не один язык не умеет возвращать из функции массив.. Буду использовать страрый проверенный метод возврещения через параметр)))
Отлично все готово (вроде) ;) , пора тестировать...
theret:=CheckArray(c,p);
writeln(theret);
readln(tmp);

ИДИОТСКИЙ НЕ НУЖНЫЙ (уже) ЯЗЫК...

... ВСЕ!!! отлично пара исправлений и все вроде пашет)))

теперь просто отлично))