Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. 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.
filanovich1984
3
19.03.2019 15:20
0
Другие вопросы по теме Информатика
Boikomariana12
02.02.2021 14:22
egorovartdin
02.02.2021 14:21
anisova342
18.06.2019 18:30
Abuhgghhhhhh
18.06.2019 18:30
AllRay1
23.04.2020 12:20
КаРіНа765
04.09.2019 15:10
karina36517
04.09.2019 15:10
Ekirakosyan12
04.03.2022 11:58
ЛеркаXD
04.03.2022 11:58
FizTex
04.03.2022 11:58
Популярные вопросы
- Установите соответствие между текстами A–G и заголовками 1–8. Запишите...
1 - Чим мене вразила «Іліада» Гомера?...
1 - По цели произведено три выстрела.Составить закон распределения ДСВ Х :...
3 - как определить внутренний диаметр отверстия капельницы...
2 - Осуществить цепочку превращений следующих реакций: Метан → хлорметан →...
3 - Жайда» тақырыбына берілген сызба бойынша әңгіме құрапbu...
3 - На приготовление чудесного сплава израсходовали 400 см3 криптонита и 200...
1 - 1.описать занятия Евгения Онегина 2.зачем Евгений Онегин приехал в деревню...
3 - На каком полуострове находится Индия?...
1 - Рассчитайте концентрацию кислоты в растворе с рH 1,4. Степень диссоциации...
2
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.
жирным помечено то что добавлено