Вставить произвольное число K перед каждым отрицательным элементом массива

@Stranger31 · Регистрация: 04.06.2012

Студворк — интернет-сервис помощи студентам

Вставить произвольное число K перед каждым отрицательным элементом массива. Не могу понять, что нужно исправить, что бы программа работала правельно

Pascal

program p1;
const n=10;
type
mas=array[1..n] of integer;
var
a:mas;
i,k:integer;
procedure vstavka (var a:mas);
var
i,k:integer;
begin
for i:=1 to n do
if a[i]>0 then begin
i:=k+i;
end;
end;
begin
randomize;
for i:= 1 to n do
a[i]:=random(20)-10;
if i<0 then
writeln(i);
end.

@CodeR · 27.09.2012, 19:29

Stranger31, для начала сделать ввод этой самой 'K'

@Stranger31 · 27.09.2012, 19:36 **[ТС]**

а куда вставить его?

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,574 Записей в блоге: 1
	27.09.2012, 19:29	2
	Stranger31, для начала сделать ввод этой самой 'K' 0

@Stranger31 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 35
	27.09.2012, 19:36 [ТС]	3
	а куда вставить его? 0

Опции темы