Заменить последний отрицательный элемент массива предпоследним элементом массива

@Анютка98 · Регистрация: 30.09.2015

1. Заменить последний отрицательный элемент массива предпоследним элементом массива.

@mamedovvms · 26.01.2016, 18:34

Pascal

i:=n;
flag:=false;
repeat
 if a[i]<0 then
  begin
   flag:=true;
   a[i]:=a[n-1];
  end;
  i:=i - 1;
until(flag) or (i<1);

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
		1
	Заменить последний отрицательный элемент массива предпоследним элементом массива 26.01.2016, 15:24. Показов 1605. Ответов 1 Метки нет (Все метки) 1. Заменить последний отрицательный элемент массива предпоследним элементом массива. 0

	26.01.2016, 18:34

Опции темы

Решение