Определите значение переменной p после выполнения алгоритма: f: =2; p: =3; p: =p+f; f: =f+p; p: =p*f;

25

Const   n=13; var   a: array[1..n] of integer;   i,s1,s2,p,k,e: integer;   m: real; begin   randomize;   write('исходный массив: ');   s1: =0; k: =0; p: =0; s2: =0;   for i: =1 to n do   begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i] mod 2 < > 0 then       begin           if a[i]< 0 then               begin s1: =s1+a[i]; k: =k+1 end           else               begin                   p: =p+1;                   if p=2 then e: =a[i]               end       end;       if p> =2 then s2: =s2+a[i]   end;   writeln;   if k> 0 then m: =s1/k else m: =0;   if s2< > e then s2: =s2-e;   writeln(m,' ',s2) end. контрольное решение исходный массив: 7 3 10 3 3 0 1 -2 9 -2 5 -5 1 -5 23

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var (n,a,b): =readinteger3('введите размер массива и границы диапазона: ');   var m: =arrrandom(n,a,b); m.println;   var d: =n div 2; // середина массива   m: =(m[: d].reverse+m[d: ].reverse).toarray; m.println end. пример введите размер массива и границы диапазона: 16 10 99 68 50 17 92 62 69 18 16 36 83 27 68 98 92 44 12 16 18 69 62 92 17 50 68 12 44 92 98 68 27 83 36