Задача 7. Створити список з 10 випадкових елементів (від -10 до 10). Збільшити значення усіх елементів списку удвічі. Знайти суму, кількість та середнє арифметичне окремо додатніх та від'ємних елементів та порівняти з відповідними значеннями початкового списку
Для формирования сводного отчета по документооборотам выполните действия:
1. Выберите в главном меню «Действия – Сформировать отчет».
Откроется окно «Формирование отчета».
2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:
за все время - автоматически проставляется период с начала использования программы по текущую дату.
за месяц - автоматически проставляется период за месяц от текущей даты.
за неделю - автоматически проставляется период за дней от текущей даты.
3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.
4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .
5. Развернется форма <Название направления документооборота> , например «Налоговая служба».
6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.
Внимание! Если программа не работает, обновите версию!
procedure FillStack(st:Stack<integer>; sq:sequence of integer);
begin
foreach var t in sq do st.Push(t);
end;
procedure PrintStack(st:Stack<integer>; s:string);
begin
Write(s); st.Println
end;
procedure ToStack(sta,stb:Stack<integer>; Even:boolean);
begin
if Even then
while sta.Count>0 do begin
var v:=sta.Pop;
if v.IsEven then begin
stb.Push(v);
exit
end
end
else
while sta.Count>0 do begin
var v:=sta.Pop;
if v.IsOdd then begin
stb.Push(v);
exit
end
end
end;
begin
var st1:=new Stack<integer>;
FillStack(st1,Seq(2,13,20,18,1));
PrintStack(st1,'Стек1: ');
var st2:=new Stack<integer>;
FillStack(st2,Seq(9,11,10,8,4));
PrintStack(st2,'Стек2: ');
var st3:=new Stack<integer>;
while st1.Count+st2.Count>0 do begin
ToStack(st1,st3,True);
ToStack(st2,st3,False);
end;
PrintStack(st3,'Стек3: ')
end.
Результат
Стек1: 1 18 20 13 2
Стек2: 4 8 10 11 9
Стек3: 2 9 20 11 18