Составить процедуру, вычисляющую значение 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

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.