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

Question

Информатика

Эрнест

Вчера, 20:36

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

+3

Ответы (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.