Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов массива

@precisee · Регистрация: 11.01.2016

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

Ввести с клавиатуры вещественный массив из n элементов (задано константой). Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов. Вывести на экран полученное значение.

@Cyborg Drone · 12.01.2016, 01:14

Очередной тест IQ для грудничков.

Сообщение от precisee

разность суммы положительных и абсолютного значения суммы отрицательных элементов

суть просто сумма всех элементов.

Pascal

const n = 10;
var a: array [1..n] of double;
    s: double;
    i: integer;
begin
  s := 0;
  writeln('Введите элементы массива A[', n, ']:');
  for i := 1 to n do
    begin
      write('A[', i:2, '] = ');
      readln(a[i]);
      s := s + a[i]
    end;
  write('Сумма положительных - модуль суммы отрицательных = ', s);
  readln
end.

@precisee 0 / 0 / 0 Регистрация: 11.01.2016 Сообщений: 11
		1
	Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов массива 11.01.2016, 22:42. Показов 2461. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры вещественный массив из n элементов (задано константой). Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов. Вывести на экран полученное значение. 0

	12.01.2016, 01:14

Опции темы

Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов массива

Решение