Составьте программу которая заполняет массив а [ 1..10] случайными целыми числами в диапазоне от -10 до 30 и вычисляет сумму отрицательных элементов массива. выводит на экран исходный массив и значение суммы
Const n=10;var a,i:integer; mas:array [1..n] of integer; begin for i:=1 to n do mas[i]:=random(30)-10; a:=0; for i:=1 to n do if mas[i]<0 then a:=a+mas[i]; writeln('sum',a); for i:=1 to n do write(mas[i]:4); end.
1) Cистема Умный Дом — технология экономии, удобства и комфорта высокого уровня. Обеспечит охрану и безопасность школы, организует комфортную температуру в помещениях, польет клумбы на пришкольной территории, предотвратит воды и сообщит об этом хозяйственным службам школы. Эта система сэкономит денежные средства на отопление и электроэнергию, что является очень актуальным аспектом для бюджета общеобразовательной организации. 2) При организации системы Умный дом в школе возможны следующие проблемы: - организация подключения школы к сети Интернет - дополнительные затраты на закупку оборудования системы Умный дом: (перечислить). - ну и так далее в зависимости от различных моделей и модификации системы
for steps in 1..max_steps for i in 0..op_numbers**steps-1 s = ("000000000000000000000000000000" + i.to_s(op_numbers))[-steps..-1] num = start_num log = start_num.to_s
for k in 0..s.size - 1 num, log = f0(num, log) if s[k] == "0" num, log = f1(num, log) if s[k] == "1" # num, log = f2(num, log) if s[k] == "2" break if num > end_num end # p [num, log, s, steps, i] if num == end_num log += " = " + end_num.to_s count += 1 p log end end end p count
begin
var a:=ArrRandom(10,-10,30);
a.Println;
writeln(a.Where(x->x<0).Sum);
end.
Пример:
27 8 19 -2 26 2 16 -10 11 -9
-21