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




Задания
Версия для печати и копирования в MS Word
Задание 25 № 2915

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

Решение.

сonst

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.