Pascal. Задача 8-23

Целочисленный массив из 10 элементов вводит пользователь. Подсчитать и вывести сумму всех отрицательных элементов массива. Если отрицательных элементов нет, то вывести сообщение об этом.

Решение

const
  N = 10;
var
  i, sum : integer;
  a : array[1..N] of integer;
begin
  for i := 1 to N do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
  end;
  sum := 0;
  for i := 1 to N do begin
    if (a[i] < 0) then
      sum := sum + a[i];
  end;
  if sum = 0 then
    Writeln('Отрицательных элементов нет')
  else
    Writeln('Сумма отрицательных элементов: ', sum);
end.

◄▲►