сумму отрицательных элементов поставить на место минимального

@Lelia Frozen · Регистрация: 01.05.2011

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

В массиве D (n) сумму отрицательных элементов поставить на место минимального.

@blecklov · 01.05.2011, 20:12

А можно более точно, что вы понимает под минимальным значением?

@ValeryLaptev · 01.05.2011, 20:34

Сообщение от Lelia Frozen

В массиве D (n) сумму отрицательных элементов поставить на место минимального.

Pascal

(* поиск минимального и суммы отрицательных*)
Summa :=0; min := D[1]; imin:=1;
if min < 0 then Summa:=min;
for i:=2 to n do
begin 
  if(D[i] < 0) then Summa:=Summa+D[i];
  if(D[i] < min) then begin imin:=i; min:=D[i]; end;
end;

как-то так

@Lelia Frozen 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 22
		1
	сумму отрицательных элементов поставить на место минимального 01.05.2011, 17:55. Показов 946. Ответов 2 Метки нет (Все метки) В массиве D (n) сумму отрицательных элементов поставить на место минимального. 0

@blecklov 11 / 11 / 2 Регистрация: 07.08.2009 Сообщений: 85
	01.05.2011, 20:12	2
	А можно более точно, что вы понимает под минимальным значением? 0

Опции темы

сумму отрицательных элементов поставить на место минимального

Решение