Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов

Задание:

Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов. В Pascal ABC. Пожалуйста.

Решение:

var a: array[0… 4] of integer=(-7, 0, -3, 11,5); var i,sum: integer; beginfor i: =0 to 4 do if (a[i]<0) then sum: =sum+a[i]; writeln (sum); readln; end.

Знаете другой ответ?

Отправить свой ответ