. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. Program Massiv_1a; Var a:Array [1..20] Of Integer i,k:Intege Begin write('Введите количество элементов массива не бол...
. Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива.
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. жирным помечено то что добавлено
Не нашли ответ?
Похожие вопросы