Вибіркова заміна знаків у чисел в масиві у Turbo Pascal

И еще одна задача из контрольной работы по массивам, включающая в себя составление блок-схемы в системе «Алгоритм» и написание программы на Турбо Паскале. Исходники загружаются по ссылке в конце статьи.

Завдання

Дано масив {X} розмірністю n.

Потрібно: замінити знаки так, щоб всі елементи масиву стали від’ємними, якщо тільки на k позиціях підряд є однакові елементи.

Блок-схема та її реалїзація на Турбо Паскалі для задачі з масивом

Еще одно задание с массивами и работой в Турбо Паскале и системе построения блок-схем «Алгоритм». Исходники программы и файл системы «Алгоритм», содержащий блок-схему, можно скачать в конце статьи.

Завдання

Дано масив {X} розмірністю n.

Потрібно: Перетворити його так, щоб на початку масиву знаходилися додатні елементи в