Страница 1 из 1
Одномерный массив.
Добавлено: 13 ноя 2010, 19:05
Ольга123
Дан одномерный массив А(N) .Составить программу. Все отрицательные элементы заменить на сумму, а положительные на полусумму предшествующих и последующих элементов этого массива.
Re: Одномерный массив.
Добавлено: 13 ноя 2010, 19:34
flash1989
Пиши, сделаю
icq: 588002847
email:
flash_1989@ukr.net
Re: Одномерный массив.
Добавлено: 15 ноя 2010, 08:12
Sheka
255507394.
Re: Одномерный массив.
Добавлено: 17 ноя 2010, 07:35
Oleg_Rus
Код: Выделить всё
for i:=1 to n do
begin
while i<=n do
begin
if (a[i]<0) and (ppmin=0) then ppmin:= a[i] else if pmin=0 then pmin:= a[i];
a[i]:=(ppmin+pmin) /2;
inc(i);
end;
while i<=n do
begin
if (a[i]<0) and (ppmax=0) then ppmax:= a[i] else if pmax=0 then pmax:= a[i];
a[i]:=ppmax+pmax;
inc(i);
end;
end;
Примерно так, не уверен код пишу навскидку да на глаз, так что есть погрешности, но принцип этот )))