Если в массиве больше отрицательных чисел, все положительные числа заменить суммой отрицательных

@7_7sanya · Регистрация: 14.11.2011

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

Задан одномерный массив P(N) (N<=60). Если в нем больше отрицательных чисел, все положительные числа заменить суммой отрицательных, полученный массив распечатать. Если больше неотрицательных чисел, то вывести об этом сообщение.

@juvmax · 16.11.2011, 03:17

Pascal

{Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности.}
 
var
  a: array[1..60] of integer;
  i: integer;
  n: integer;
  k_pol, k_otr: integer;
  sum_otr: integer;
 
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите массив:');
  for i := 1 to n do readln(a[i]);
  for i := 1 to n do 
    if a[i] > 0 then inc(k_pol) else 
    begin
      inc(k_otr);
      sum_otr := sum_otr + a[i];
    end;
  if k_pol < k_otr then
  begin
    for i := 1 to n do
      if a[i] > 0 then a[i] := sum_otr;
    writeln('Будет выведен преобразованный массив:');
    for i := 1 to n do writeln(a[i]:4);
    exit;
  end
  else writeln('Неотрицательных чисел больше, чем отрицательных!');
end.

Если правильно понял условие , то вот решение!

Добавлено через 1 минуту
Если попробовать, то можно часть программы в процедуре реализовать! Как экзотический вариант!

@7_7sanya 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 4
		1
	Если в массиве больше отрицательных чисел, все положительные числа заменить суммой отрицательных 15.11.2011, 23:51. Показов 3244. Ответов 1 Метки нет (Все метки) Задан одномерный массив P(N) (N<=60). Если в нем больше отрицательных чисел, все положительные числа заменить суммой отрицательных, полученный массив распечатать. Если больше неотрицательных чисел, то вывести об этом сообщение. 0

Опции темы

Если в массиве больше отрицательных чисел, все положительные числа заменить суммой отрицательных

Решение