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

Question

Информатика

Игорек

24 октября, 13:01

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

+5

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

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