У Кайрата два принтера цветной или черно-белый . Кайрат решил распечатать свой проект созданный в программе Scratch на одном из своих принтеров ,но появилась сообщение ,,выберите принтер"
Объясните причину появления сообщение при отправке на печать документа.
Какие действия необходимо предпринять предпринять для отправки документа на печать?​

Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим.

Из 1 в 7
Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.

(1)6<-5->7(1)
То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4
(2)5<-4->6(1)
Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три.
Рассмотрим таким все остальные числа до 1.
(3)4<-3->5(2) - всего 5 программ
(5)3<-2->4(3) - всего 8 программ
(8)2<-1->3(5) - всего 13 программ.

Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды
(1)12<-11->13(1) - 2 программы
(2)11<-10->12(1) - 3 программы
(3)10<-9->11(2) - 5 программ
(5)9<-8->10(3)  - 8 программ
(8)8<-7->9(5)  - 13 программ

Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169

1)
// здесь нужно объявить количество элементов или ввести с
var 
a: array [1..N] of integer;
i: integer;
min: integer;
max: integer;
minnum: integer;
maxnum: integer;

begin
// здесь должен быть ввод значений массива в цикле
// for i:=1 to N do
a[i]=Random(100); или через readln;

min := a[1];
minnum := 1;
max := a[1];
maxnum := 1;
for var i:=2 to N do
begin
  if a[i]<min then
    begin
      min := a[i];
      minnum := i;
    end;
  if a[i]>max then
    begin
      max := a[i];
      maxnum := i;
    end;
end;
a[maxnum]=min;
a[minnum]=max;
//здесь вывод нового массива
end.

2)
for i:=1 to N do
if a[i]>0 then
  if a[i] mod 2 = 0 then
     write(a[i], ' ');
3)
var
sum: integer;
start: integer;
for i:=1 to N do
if a[i]=0 then
   start=i+1;  нашли первый нулевой, начинаем дальше со следующего
for i:=start to N do
begin
if a[i]>0 then
   begin
    sum=sum+a[i];
    write(i, ' '); ///номер положительного элемента
   end;
writeln;
write('Сумма =',sum);
end;