menu
person

Задача №2892

Опи­ши­те на рус­ском языке или на одном из язы­ков про­грам­ми­ро­ва­

Поиск задачи:

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

Категория: по информатике | Добавил: Просмотров: 1 | Теги: Ал­го­рит­мы обработки массивов | Рейтинг: 0.0/0
Всего комментариев: 0