№№ заданий Пояснения Ответы Ключ Добавить инструкцию Критерии
Источник Раздел кодификатора Ф ИПИ Справка
PDF-версия PDF-версия (вертикальная) PDF-версия (крупный шрифт) PDF-версия (с большим полем) Версия для копирования в MS Word
Задания
Задание 25 № 2927

Опишите на русском языке или на одном из языков программирования алгоритм подсчета суммы всех отрицательных элементов заданного целочисленного массива размером 30 элементов. Если отрицательных элементов нет, сообщите об этом.

Решение.

const

  N = 30;

var

  a: array[1..N] of integer;

  i,sum: integer;

begin

  for i := 1 to N do 

     read(a[i]);

  sum := 0;

  for i := 1 to N do 

     if (a[i] < 0) then 

        sum := sum + a[i];

  if (sum = 0) then 

     write('Отрицательных нет')

  else

     write('Сумма = ', sum);

end.