6) Система команд исполнителя Вычислитель
состоит из двух команд, которым присвоены
номера:
1 - Вычти 2
2 - умножь на 3
Первая из них уменьшает число на 2, вторая
увеличивает число в 3 раза. При записи
алгоритмов для краткости указываются лишь
номера команд. Запишите алгоритм, содержащий
не более пяти команд, с которого из
числа 7 будет получено число 33.
7) К какому виду алгоритмов можно отнести
алгоритмы, схемы которых представлены ниже?
а) цикл с заданным условием продолжения
работы
б) разветвляющийся с неполным ветвлением
в) разветвляющийся с полным ветвлением
г) цикл с заданным числом повторений (цикл с
параметром)
д) линейный ​ е)цикл с заданным условием окончания работы ж)вс

Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end

1.                                        

program raf105;

const

 n = 5;

var

 a: array[1..n] of integer;

 x,max,min,i: integer;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

max:= a[1];

min:= a[1];

for i:=1 to n do

begin

 if max < a[i]

   then max:= a[i];

 if min > a[i]

   then min:= a[i];

end;

writeln;

write('Массив: ');

for i:=1 to n do

 write(a[i],' ');

writeln;

writeln('Наибольший элемент: ',max);

writeln('Наименьший элемент: ',min);

end.

2.                                        

program raf105;

const

 n = 5;

var

 a: array[1..n] of real;

 x,i: integer;

 min: real;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

writeln;

write('Исходный массив: ');

for i:=1 to n do

 write(a[i],' ');

min:= a[1];

for i:=1 to n do

 if min > a[i]

   then min:= a[i];

for i:=1 to n do

 a[i]:= a[i]/min;

writeln;

write('Изменённый массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

3.                                        

program raf105;

const

 n = 8;

var

 a: array[1..n] of integer;

 x,i,max: integer;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

writeln;

write('Исходный массив: ');

for i:=1 to n do

 write(a[i],' ');

max:= a[1];

for i:=1 to n do

 if max < a[i]

   then max:= a[i];

for i:=1 to n do

 a[i]:= a[i]+max;

writeln;

write('Изменённый массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

                                          PascalABC 3.4.2