Дан массив из 15 элементов, заданных случайным образом из диапазона [-5; 5]. Подсчитайте сумму положительных и отрицательных элементов массива.

Нужно отдельно складывать положительные и отрицательные элементы. Нуль не является ни положительным, ни отрицательным.

Программа на Pascal:

var
i, x, sp, sn: integer;
begin
sp := 0;
sn := 0;
for i := 1 to 15 do
begin
x := random(11) - 5;
write(x, ' ');
if x > 0 then sp := sp + x;
if x < 0 then sn := sn + x;
end;
writeln;
writeln('Сумма положительных: ', sp);
writeln('Сумма отрицательных: ', sn);
end.

0 0 Пожаловаться