Массив целых чисел Опции

[OliGan]

Задача состоит в том, что нужно в массив целых чисел вставить какое-то число а между всеми элементами одного знака.
Выдает ошибку exitcode = 207
Буду благодарен за подсказку

program massiv;
var
mas:array[1..115] of integer;
i,j,n,a:integer;
begin
		randomize;
		write('vvesti a ');
		readln(a);
		write('elementi massiva ');
		for i:=1 to 15 do
				mas[i]:=random(10);
				for i:=1 to 15 do
				write(' ',mas[i]);
				readln;
		n:=15;
		j:=1;
		i:=1;
		while i<=n do
		begin
		if (mas[i]/abs(mas[i])=mas[i+1]/abs(mas[i+1])) then
				begin
				   for j:=n downto (i+1) do
				   mas[j+1]:=mas[j];
				   mas[i+1]:=a;
				   inc(n);
				   i:=i+2;
				end
		end;
		for i:=1 to n do
		   write(' ',mas[i]);
		readln;
		readln
end.

Сообщение отредактировано: volvo - 13.03.2010 16:13

[ammaximus]

program massiv;
var
mas:array[1..115] of integer;
i,j,n,a:integer;
begin
        randomize;
        write('vvesti a ');
        readln(a);
        write('elementi massiva ');
        for i:=1 to 15 do
                if random(2)=1 then
                       mas[i]:=-random(10)+1
                   else
                       mas[i]:=random(10)+1; { <--- Задаем отрицательные числа}

        for i:=1 to 15 do
                write(' ',mas[i]);
                readln;
        n:=15;
        j:=1;
        i:=1;
        while i<=n do
        begin
        inc(i);{<--Увеличиваем i}
        if ((mas[i]>0) and (mas[i+1]<0)) or ((mas[i+1]>0) and (mas[i]<0)) then {<--- Обычное логическое выражение}
                begin
                   for j:=n downto (i+1) do
                       mas[j+1]:=mas[j];
                   mas[i+1]:=a;
                   inc(n);
                   i:=i+1;
                end;
        end;

        for i:=1 to n do
           write(' ',mas[i]);
        readln;
        readln
end.

У меня ошибка называется 200 - деление на ноль.
Логика быстрее деления, особенно если в массиве большие числа. К тому же это и вызывает ошибку. Заменил.
Ты не инкриминируешь i если нет разнознаковых элементов, что дает бесконечный цикл
Ты не задаешь отрицательных элементов.

[OliGan]

большое спасибо!
почему-то пропустил эту ошибку с i.. а отрицательные числа не стал пока вводить по той причине, что и с положительными не получалось. еще раз спасибо

[volvo]

ammaximus, твой код решает задачу некорректно: надо вставить число между элементами с одинаковыми знаками, а не с разными (ноль - это положительное число, кстати, или отрицательное? В твоем варианте они вообще не учитываются). К тому же, не надо брать на себя работу компилятора, он прекрасно справляется с ней сам:

        i:=0; { <--- Если оставить 1, то первая пара может быть пропущена }
        while i<=n do
        begin
        inc(i);
        if ((mas[i]>0) and (mas[i+1]>0)) or ((mas[i+1]<0) and (mas[i]<0)) then { <--- условие заменено }
                begin
                   move(mas[i+1], mas[i+2], (n - i)*sizeof(integer)); { <--- и зачем мне цикл? }
                   (*
                   for j:=n downto (i+1) do
                       mas[j+1]:=mas[j];
                   *)
                   mas[i+1]:=a;
                   inc(n);
                   i:=i+1;
                end;
        end;

[ammaximus]

Действительно, перепутал с условием.