1. запишите значение переменной s, полученное в результате работы следующей программы. заполните таблицу трассировки. var s, k: integer; begin s: =0; for k: =4 to 8 do s: =s+7; writeln(s); end. 2. запишите значение переменной d, полученное в результате работы следующей программы. заполните таблицу трассировки. var d, n: integer; begin d: =6; d: =d-2; for n: =1 to 4 do d: =d+n; writeln(d); end. 3. определите, что будет напечатано в результате работы следующей программы. заполните таблицу трассировки. var s, k: integer; begin s: =0; for k: =3 to 100 do s: =s+13; writeln(s); end.

1. ответ: 35

2. ответ: 14

3. ответ: 1274

У, сначала нужно найти макс и мин элементы.  max = a(1)  nmax = 1  min = a(1)  nmin = 1  for i = 2 to n  if a(i) > max then  max = a(i)  nmax = i  end if  if a(i) < min then  min = a(i)  nmin = i  end if  next i  таким образом мы узнали макс и мин элементы, а главное, их номера nmax и nmin.  проверим, какой номер больше, и сделаем так, чтобы было nmin < nmax.  если nmin > nmax, поменяем их местами  if nmin > nmax then  q = nmin  nmin = nmax  nmax = q  end if  теперь нужно отсортировать элементы между ними пузырьковой сортировкой по убыванию  for i = nmin + 1 to nmax - 1  здесь вставляется алгоритм пузырьковой сортировки, который я не помню. поищи в интернете.  next i

Pascalabc.net 3.4.2, сборка 1880 от 18.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -10, 10);

  a.println;

  a : = a.orderdescending.toarray;

  a.println;

  var (max, min) : = (a.max, a.min);

  var i1 : = a.indexesof(t -> t = max).last;

  var i2 : = a.indexof(min);

  a? [i1 + 1: i2].sum.println

end.

пример n= 15 -10 9 9 -10 -5 -7 -9 1 -8 -10 1 7 10 4 -5 10 9 9 7 4 1 1 -5 -5 -7 -8 -9 -10 -10 -10 -3