Вмассиве а 20 есть хотя бы одно отрицательное значение элемента.вычислить сумму значений элементов массива после 1ого отрицательного значения.
lizka12343
3
24.04.2019 09:50
0
Другие вопросы по теме Информатика
оеавц
24.08.2019 04:50
dikozzz
24.08.2019 04:50
гататвтврвга
24.08.2019 04:50
olgaerchik
15.07.2019 03:10
fedoseeva3335
10.12.2020 01:36
рената1239305
10.12.2020 01:34
130181
10.12.2020 01:33
s1mple72
11.08.2019 09:50
simonlol98
11.08.2019 09:50
Популярные вопросы
- Информация о том, каким должен быть организм, закодирована: 1) в белках...
2 - Придумать предложения! и раскрыть скобки! 1) перечислить деньги на счет...
2 - 5. разложите на множители: а). 4х^2 -36а^4; b) ab^2 - ac^2 c) -5п^2 -10па...
1 - 8класс. решается моя полугодовая оценка! ! 1) постройте в одной системе...
3 - Какие социальные статусы появились только в современном обществе?...
1 - Почему в течение 16 в увеличилось численность казачества ?...
2 - Напишите синквейн к слову тургенев . план синквейна(на заметку) 1.сущ 2....
2 - Чем слова судно, катер и ковчег (ноев ковчег) различаются по значению?...
3 - Впрямоугольном параллелепипеде длина в два раза больше ширины и составляет...
3 - Как автор выражает своё отношение к тарасу бульбе и его сыновьям?...
3
var
flag : boolean;
i, s : integer;
a : array [1..20] of integer;
begin
for i := 1 to 20 do read (a[i]);
s := 0; flag := false;
for i := 1 to 20 do
if flag then s := s + a[i]
else if a[i] < 0 then flag := true;
writeln (s);
end.