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

@lyosha · Регистрация: 17.03.2011

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

заменить максимальный по модулю отрицательный элемент массива нулём

@Ev[G]eN · 17.03.2011, 19:32

Pascal

const
 n=10;
var
 arr: array[1..100] of integer;
 i: integer;
begin
  for i:=1 to n do
   begin
    read(arr[i]);
     if arr[i]<0 then
      arr[i]:=0;
   end;
  for i:=1 to n do
   write(arr[i], ' ');
end.

@Евгения479 · 07.11.2016, 12:16

Скажите, как сделать, чтобы программа убирала только максимальный по модулю отрицательный элемент?

@lyosha 0 / 0 / 0 Регистрация: 17.03.2011 Сообщений: 17
		1
	Заменить максимальный по модулю отрицательный элемент массива нулём 17.03.2011, 19:05. Показов 7432. Ответов 2 Метки нет (Все метки) заменить максимальный по модулю отрицательный элемент массива нулём 0

@Евгения479 1 / 1 / 0 Регистрация: 30.09.2016 Сообщений: 46
	07.11.2016, 12:16	3
	Скажите, как сделать, чтобы программа убирала только максимальный по модулю отрицательный элемент? 0

Опции темы

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

Решение