Одномерный массив.
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Дан одномерный массив А(N) .Составить программу. Все отрицательные элементы заменить на сумму, а положительные на полусумму предшествующих и последующих элементов этого массива.
255507394.
Мои мысли настолько гениальны, что санитары уже приехали!
Ася 255507394.
Ася 255507394.
- Oleg_Rus
- Сообщения: 335
- Зарегистрирован: 16 окт 2006, 09:56
- Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
- Контактная информация:
Код: Выделить всё
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;
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>