В массиве чисел с n элементов найти сумму всех отрицательных чисел

@Watson77 · Регистрация: 30.04.2014

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

В одномерном массиве чисел с n элементов найти сумму всех отрицательных чисел. Элементы массива вводить самому.

@programax · 07.05.2014, 20:33

Вроде все правильно

Pascal

var
  a: array of integer;
  b, c: integer;
 
begin
  writeln('Введите размерность массива');
  readln(b);
  setlength(a, b);
  writeln('Введите ', b, ' элемента(ов)');
  for var i := 0 to b - 1 do
  begin
    readln(a[i]);
    if a[i] < 0 then
      c := c + a[i];  
  end;
  writeln('Сумма отрицательных элементов массива =', c:4);
end.

@Watson77 0 / 0 / 0 Регистрация: 30.04.2014 Сообщений: 9
		1
	В массиве чисел с n элементов найти сумму всех отрицательных чисел 05.05.2014, 18:22. Показов 1339. Ответов 1 Метки нет (Все метки) В одномерном массиве чисел с n элементов найти сумму всех отрицательных чисел. Элементы массива вводить самому. 0

Опции темы

В массиве чисел с n элементов найти сумму всех отрицательных чисел

Решение