Внести в программу изменения таким образом, чтобы - вопрос №391143 от bayrzhan 09.04.2020 07:52

Question

Информатика: Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. 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.

bayrzhan · Answer

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.

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