50

второй вариант на картинке, первый в тексте

.дано слово, обозначающее устройство вывода на экран. выполните алгоритм:
1)заменить все буквы «о» на «е»;
2)поменять местами третью и четвёртую буквы;
3)первые две буквы заменить на «пр».
запишите результат.
2.запишите последовательность букв, соответствующую алгоритму безопасного полёта (правильных алгоритмов может быть несколько):
a) спинку сиденья в вертикальное положение;
б) пристегнуть ремни безопасности;
b)занять своё место;
г) зайти в самолёт по трапу;
д) открыть шторку иллюминатора.
3.у исполнителя вычислитель две команды, которым присвоены номера:
1— вычти 5;
2— умножь на 3.
первая команда уменьшает число на 5, вторая умножает число на 3.
придумайте алгоритм получения из числа 25 числа 200, содержащий не более 5 команд. запишите алгоритм в виде строки из номеров образующих его команд.
4.некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом:
1)записывается исходная цепочка символов в исходном порядке;
2)записывается исходная цепочка символов в обратном порядке;
3)записывается буква, следующая в алфавите за той буквой, которая в исходной цепочке стояла на первом месте.
получившаяся таким образом цепочка является результатом работы алгоритма. например, если исходная цепочка символов была мозг, то результатом работы алгоритма будет цепочка мозггзомн.
дана цепочка символов су. какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем — к его результату)?
алфавит:
а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я​

Program ex1;

const
  n = 10;

var
  a: array[1..n] of integer;
  kOdd, e, i: integer;

begin
  Randomize;
  kOdd := 0;
  write('Исходный массив ');
  for i := 1 to n do
  begin
    e := Random(20) + 1;
    a[i] := e;
    if (e mod 2) <> 0 then kOdd := kOdd + 1;
    write(e:3)
  end;
  writeln;
  writeln('Количество нечетных элементов - ', kOdd)
end.

Тестовое решение:
Исходный массив   9  2  1 18 17 16 11 15 15 13
Количество нечетных элементов - 7

program ex2;

const
  n = 10;

var
  a: array[1..n] of integer;
  kNeg, e, i: integer;

begin
  Randomize;
  kNeg := 0;
  write('Исходный массив ');
  for i := 1 to n do
  begin
    e := Random(21) - 10;
    a[i] := e;
    if e < 0 then kNeg := kNeg + 1;
    write(e:4)
  end;
  writeln;
  writeln('Количество отрицательных элементов - ', kNeg);
end.

Тестовое решение:
Исходный массив   -9  -1  -7  -4   8  -4   1  -1  -7   0
Количество отрицательных элементов - 7

program ex3;

const
  n = 10;

var
  a: array[1..n] of integer;
  e, i: integer;

begin
  Randomize;
  write('Исходный массив ');
  for i := 1 to n do
  begin
    a[i] := Random(20);
    write(a[i]:4)
  end;
  writeln;
  write('Результирующий массив ');
  for i := 1 to n do
  begin
    if a[i] mod 2 = 0 then a[i] := 1;
    write(a[i]:4)
  end;
  writeln;
end.

Тестовое решение:
Исходный массив    3  16   4   1  13   0  14  14  10  18
Результирующий массив    3   1   1   1  13   1   1   1   1   1

program ex4;

const
  n = 10;

var
  a: array[1..n] of integer;
  e, i: integer;

begin
  Randomize;
  write('Исходный массив ');
  for i := 1 to n do
  begin
    a[i] := Random(11) + -5;
    write(a[i]:4)
  end;
  writeln;
  write('Результирующий массив ');
  for i := 1 to n do
  begin
    if a[i] = 0 then a[i] := 1;
    write(a[i]:4)
  end;
  writeln;
end.

Тестовое решение:
Исходный массив    4  -5   0  -2  -4  -5  -2   0  -1  -5
Результирующий массив    4  -5   1  -2  -4  -5  -2   1  -1  -5

program ex5;

const
  n = 10;

var
  a: array[1..n] of integer;
  e, i: integer;

begin
  Randomize;
  write('Исходный массив ');
  for i := 1 to n do
  begin
    a[i] := Random(10) + 1;
    write(a[i]:3)
  end;
  writeln;
  write('Результирующий массив ');
  for i := 1 to n do
  begin
    if a[i] = 3 then a[i] := 5;
    write(a[i]:3)
  end;
  writeln;
end.

Тестовое решение:
Исходный массив   8  9  6 10 10  7  1  3  1  3
Результирующий массив   8  9  6 10 10  7  1  5  1  5

Const
    m = 10; 
var
    a,b: array[1..m] of integer;
    c: array[1..m*2] of integer;
    i, j, k: integer; 
begin     
write ('Первый массив: ');    
for i := 1 to m do
  begin
  a[i] := random(100);
  c[i]:=a[i];
  write (a[i],'; ');
  end;    
writeln;      
write ('Второй массив: ');    
for i := 1 to m do
  begin
  b[i] := random(100);
  c[i+m]:=b[i];
  write (b[i],'; ');
  end;    
writeln;      
for i := 1 to 2*m-1 do
        for j := 1 to 2*m-i do
           if c[j] > c[j+1] then
             begin
             k := c[j];
             c[j] := c[j+1];
             c[j+1] := k
             end;     
write ('Отсортированный третий массив: ');    
for i := 1 to 2*m do
   write (c[i],'; ');
end.