Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива

Question

Информатика

Валентин

1 апреля, 16:35

Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива

+2

Ответы (1)

Знаете ответ?

Нинока · Answer 1

Const

n = 10;

var

a: array[1 ... n] of integer;

i, s: integer;

begin

s : = 0;

for i : = 1 to n do

begin

a[i] : = random (20) - 10;

if (a[i] < 0) then s : = s + a[i];

end;

writeln (s) ;

end.