Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var k := n div 2;
if n.IsEven then
a := a[k:] + a[:k]
else
a := a[k + 1:] + Arr(a[k]) + a[:k];
a.Println
end.
2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
А) совокупность всех программ- программное обеспечение. б) операционная система. Сорри, но 3-е я и сам не решил... Такое же задание нам задали...