Дан массив из 12 элементов, в котором есть положительные и отрицательные числа (ноль тоже есть) : а1=5, а2=4, а3=-3, а4=1, а5=0, а6=-4, а7=, а8=25, а9=-8, а10=-5, а11=-17, а12=-1. Составьте программу, в которой 1 вариант: Все отрицательные числа меняются на "1", все положительные на "-5", нулевые не трогаются. Вывести на экран исходный и полученный массив.

program zz1;

const n = 12; / / задаем количество элементов в массиве

m:array [1 ... n] of integer = (5, 4, - 3, 1, 0, - 4, 10, 25, - 8, - 5, - 17, - 1);

var i:integer; / / задаем переменные целого типа

k:array [1 ... n] of integer;

begin

for i:=1 to n do k[i]:=m[i];

for i:=1 to n do / / выводим исходный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

if k[i] < 0 then k[i]:=1; / / проверяем, если элемент отрицательный, то заменяем на 1

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

if k[i] > 0 then k[i]:=-5; / / проверяем, если элемент положительный, то заменяем на - 5

for i:=1 to n do / / выводим полученный массив на экран

write (k[i],' ');

end.