50 . второй вариант на картинке первый в тексте, отмечу лучший ответ.

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

Допустим, массив уже задан, поэтому его ввод писать не буду. Kol - количество элементов массива

var

 mas, mas_ob: array[0..999] of integer;

 i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;

begin

 kol_null := 0;

 sum := 0;

 sum_nech := 0;

 sum_ch := 0;

 i1 := 0;

 max := -10000;

 for i := 0 to kol do  

 begin  

   if mas[i] <> 0 then kol_null += 1; //2

   sum += mas[i]; //3

   if mas[i] mod 2 <> 0 then sum_nech += mas[i];//4

   if mas[i] mod 2 = 0 then sum_ch += mas[i];  //5

   if mas[i] < 0 then mas[i] := abs(mas[i]);  //6

   if mas[i] mod 21 = 0 then mas[i] := 1; //7

   if mas[i] > max then max := mas[i]; //11

 end;  

 pp := mas[0];//8

 mas[0] := mas[kol]; //8

 mas[kol] := pp;//8

 for i := kol downto 0 do //10

 begin

   mas_ob[i] := mas[i];

   i1 += 1;

 end;

 writeln('Количество ненулевых элементов: ', kol_null);

 writeln('Сумма всех элеметов: ', sum);

 writeln('Сумма нечетных элеметов: ', sum_nech);

 writeln('Сумма четных элеметов: ', sum_ch);

 writeln('Максимальный элемент: ', max);

end.

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

 double a, b, x, y;

 cout << setw(10) << "a" << setw(10) << "b" << setw(10) << "x" << setw(10) << "y\n";

 for (a = 0; a <= 2.5; a += 0.5) {

   for (b = -1.5; b <= 0; b += 0.5) {

     x = (2 * b + 0.3) / (a + b);

     if (x >= -0.5)

       y = b / sqrt(x + 5);

     else

       y = a / sqrt(x + 5);

     cout << fixed << setw(10) << setprecision(3) << a;

     cout << fixed << setw(10) << setprecision(3) << b;

     cout << fixed << setw(10) << setprecision(3) << x;

     cout << fixed << setw(10) << setprecision(3) << y;

     cout << "\n";

     //cout << fixed << setw(15) << setprecision(3) << a << " " << b << " " << x << " " << y << "\n";

   }

 }

}

Объяснение: