Составить процедуру, вычисляющую значение true, если все элементы одномерного массива имеют значения, большие заданной величины, и false в противном случае. используя эту процедуру, изменить значение каждого элемента тех двух заданных массивов a(n) и b(m) на обратное, в которых все исходные значения больше величины t. в противном случае вывести сообщение “условие не выполнено”кст. определить сколько раз встречается заданное слово. паскаль

Const   n=100; type   v=array[1..n] of integer;   procedure isgreater(var p: v; m,t: integer; var r: boolean); var   i: integer; begin   i: =1; r: =true;   while (i< =n) and r do   begin r: =(p[i]> t); inc(i) end end; procedure init(var p: v; m: integer); { инициализация и вывод массива } var   i: integer; begin   for i : = 1 to m do   begin p[i]: =random(51)-25; write(p[i]: 4) end;   writeln end; procedure invert(var p: v; m: integer); { инвертирование элементов и вывод массива } var   i: integer; begin   writeln('текущие значения элементов массива');   for i : = 1 to m do   begin p[i]: =-p[i]; write(p[i]: 4) end;   writeln end; var   a,b: v;   i,m1,m2,t: integer;   res: boolean; begin   randomize;   write('введите размеры массивов a и b: '); read(m1,m2);   writeln('введите пороговое значение t: '); read(t);   writeln('элементы массива a');   init(a,m1);   isgreater(a,m1,t,res);   if res then invert(a,m1)   else writeln('условие не выполнено');   writeln('элементы массива b');   init(b,m2);   isgreater(b,m2,t,res);   if res then invert(b,m2)   else writeln('условие не выполнено') end. тестовое решение: введите размеры массивов a и b: 15 9 введите пороговое значение t: -24 элементы массива a   23  -9 -23 -25 -25  -4 -16  -2  -3    6  -8 -19  19  21  12 условие не выполнено элементы массива b   -6  -9  -3 -23  14    4 -11  24  11 текущие значения элементов массива     6    9    3  23 -14  -4  11 -24 -11

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.