Одномерные массивы

[valentun11231]

Есть массив n чисел. Вычислить сумму отрицательных элементов массива.Используя одномерные массивы, составить программу. Значения частей массива вводятся юзером с клавиатуры.

[Valentin8596]

Здесь нужно использовать цикл for

[macomics]

А язык какой?

program getnegsum;

uses SysUtils;

var arr: array of LongInt; i: LongInt; s: LongInt;

BEGIN
  // Ввод
  WriteLn('Введите количество элементов массива: '); ReadLn(i); if i  > 0 then begin
    SetLength(arr, i);
    WriteLn('Вводите элементы массива:');
    for i := Low(arr) to High(arr) do Read(arr[i]);
    // Вычисление суммы и вывод
    s := 0; for i := Low(arr) to High(arr) do if arr[i] < 0 then inc(s, arr[i]);
    WriteLn('Сумма отрицательных элементов в массиве равна ', s);
  end else WriteLn('Не верное количество элементов!');
END.

fpc 3.2.2