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

Question

Информатика

Михайлинка

31 июля, 22:55

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

+5

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