Задания
Версия для печати и копирования в MS WordОпишите на русском языке или на одном из языков программирования алгоритм подсчета суммы всех отрицательных элементов заданного целочисленного массива размером 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.

