1)вывести в обратном порядке второе слово строки. подсчитать количество букв в нем. 2) составить программу для вычисления т=(r/q+1)+s. r - наименьший элемент массива; q - произведение элементов массива с нечетными номерами; s - количество элементов, лежащих в интервале (a,b) (ввести с клавиатуры). 3) вычислить среднее арифметическое положительных элементов матрицы, расположенных ниже побочной диагонали. закрасить указанные элементы.

Var   x: string;   arr: array of char; begin   readln(x);   arr : = x.split(' ')[1].tochararray();   system.array.reverse(arr);   writeln(length(arr), '   ', new string(arr)); end. var   c: array of integer : = (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);   r, q, s: real;   i, a, b: byte;     begin   q : = 1;   i : = 1;   r : = c.min();   while (i < length(c)) do   begin     q *= c[i];     i += 2;   end;   readln(a, b);   s : = b - a - 1;   writeln('t = ', (r / q + 1) + s); end. const   k = 5;   p = 5; var   f: array [1..k, 1..p] of string;   o: real;   df: byte; begin   for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do     begin       f[i, j] : = random(10, 99).tostring();       write(f[i, j]: 3);       if (j > = 7 - i) then       begin         o += integer.parse(f[i, j]);         df += 1;         f[i, j] : = '██';       end;     end;     writeln();   end;   writeln();   for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do       write(f[i, j]: 3);     writeln();   end;   writeln(o / df); end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.