. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. Program Massiv_1a; Var a:Array [1..20] Of Integer i,k:Intege Begin write('Введите количество элементов массива не более 20:'); Read(k); For i:=1 To k Do Read(a) End.

Предыдущий
вопрос Следующий
вопрос

Program Massiv_1a;

Var
a: Array [1..20] Of Integer;
i, k, sum: Integer;

Begin
sum := 0;

Write('Введите количество элементов массива не более 20:');
Read(k);

For i:=1 To k Do
Begin
Read(a[i]);
if a[i] < 0 then
Begin
sum := sum + a[i];
End;
End;

Write('Сумма отрицательных элементов массива: ', sum);

End.