Дан двумерный массив 10х10, содержащий числа в интервале от -10 до 10. Вычислить отдельно сумму положительных и сумму отрицательных элементов. Паскаль.

Предыдущий
вопрос Следующий
вопрос

program SumArray;

cons
N = 10;

typ
TArray = array[1..N, 1..N] of integer;

va
A: TArray
i, j, sumPositive, sumNegative: integer;

begi
// Заполняем массив случайными числами от -10 до 1
Randomize
for i := 1 to N d
for j := 1 to N d
A[i, j] := Random(21) - 10;

sumPositive := 0
sumNegative := 0;

// Вычисляем сумму положительных и отрицательных элементо
for i := 1 to N d
for j := 1 to N d
begi
if A[i, j] > 0 the
sumPositive := sumPositive + A[i, j
else if A[i, j] < 0 the
sumNegative := sumNegative + A[i, j]
end;

// Выводим результат
writeln('Сумма положительных элементов: ', sumPositive)
writeln('Сумма отрицательных элементов: ', sumNegative);

end.