СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в 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.