Запишите значение переменной s полученное в результате работы следующей программы​

цикл for k: =7 to 15, повторяется 4 раза,, каждый раз к s прибавляется по 3, т.е. за 4 повтора прибавится 3х4=12, т.к. начальное s=0, после выполнения она будет равна 12

твет 12

const n=10;

var a: array [1..n] of real;

i,j,k: integer;

s,v: real;

begin

write(' исходный массив: ');

for i: =1 to n do

begin

a[i]: =random*20-10;

write(a[i]: 7: 2);

if a[i]< 0 then

begin

s: =s+a[i]*a[i];

k: =k+1

end;

if a[i]> 0 then a[i]: =i

end;

writeln;

write('преобразованый массив: ');

for i: =1 to n do write(a[i]: 7: 2);

writeln;

for i: =1 to n do

for j: =1 to n-i do

if a[j]> a[j+1] then

begin

v: =a[j];

a[j]: =a[j+1];

a[j+1]: =v

end;

write('отсортированый массив: ');

for i: =1 to n do write(a[i]: 7: 2);

writeln;

writeln('среднее арифметическое квадратов отрицательных чисел равно ',s/k: 0: 2);

end.

program massive;

uses crt;

const

  m = 6;

var

  d: array [1..m] of real;

  i: integer;

  sum: real;

  indexmax: integer;

begin

    clrscr;

    randomize;

    writeln ('massive: ');

    indexmax : = 1;

    d[1] : = 10;

    d[1] : = d[1] - random(20);

    writeln (d[1]);

    for i: = 2 to m do

    begin

          d[i] : = 10.0;

          d[i] : = d[i] - random(20);

          writeln (d[i]);

          if (d[i] > d[indexmax]) then

          begin

          indexmax : = i;

          end;

    end;

    writeln ('indexmax = ', indexmax);

    sum : = 0;

    for i: = indexmax + 1 to m do

      if (d[i] < 0) then sum : = sum + d[i];

    writeln ('sum = ', sum);

    readln

end.