Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива.
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,s:Integer 
Begin 
write(Введите количество элементов массива не более 20:); 
Read(k); 
For i:=1 To k Do Read(a[i]);

s:=0;

For i:=1 to k do if a[i]<0 then s:=s+a[i];

Writeln(Сумма <0,s);
End.

жирным помечено то что добавлено