13.1. дан массив целых чисел из 12 элементов. найти сумму отрицательных элементов массива. 13.2. дан массив целых чисел из 12 элементов. найти количество элементов массива являющихся нечетными и положительными. 13.3. дан массив целых чисел из 12 элементов. выяснить верно ли, что количество положительных элементов не превышает 5. турбо паскаль. : )
AndrewGuyGuyson
2
27.07.2019 02:10
0
Другие вопросы по теме Информатика
sharperdimas
15.12.2020 03:05
sobkevichbozhep08t40
15.12.2020 03:06
ангелОк2512
15.12.2020 03:06
andrew120885p09zsu
15.12.2020 03:07
vadimash
17.06.2020 02:28
Lizakisa777
16.06.2020 02:26
Veronika234629
16.06.2020 02:04
Франц11
25.09.2020 08:30
pilipenkorita3
28.04.2020 15:45
Популярные вопросы
- Какие достижения римской литературы и искусства унаследовала современная...
1 - Сравни два мнения о Римской империи. В чём они противоречат друг...
1 - Перечисли главные ценности (наиболее важные правила, идеи) античной...
3 - Почему считается, что многие императоры I века (по должности –...
2 - Объясни выражение I–II веков: «Римская империя прячется в одежды...
3 - Определите личные качества Октавиана Августа и его преемников...
3 - Перечисли причины, приведшие к замене республики империей....
2 - Объясни изначальный и современный (переносный) смысл выражений:...
1 - Объясни фразу древнего писателя Плутарха о Риме I века до н.э.,...
3 - По карте определи, какие новые провинции завоевали Помпей и Цезарь....
3
var
a: array [1.. 100] of integer;
k,i: integer;
begin
for i:= 1 to 12 do
readln(a[i]);
k:=0;
for i:= 1 to 12 do
if a[i] < 0 then k:=k+a[i];
writeln(k);
end.