Составить программу для ввода десяти элементов масива и подстета суммы отрицательных чисел масива

Question

Информатика

Асюта

16 декабря, 07:10

Составить программу для ввода десяти элементов масива и подстета суммы отрицательных чисел масива

+4

Ответы (1)

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

Митра · Answer 1

Var x, i: integer;

a: array [0 ... 9] of integer;

begin

for i : = 0 to 9 do

begin

readln (a[i]) ;

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

end;

writeln (x) ;

end.

Вот так это сделать можно)