Многократное выполнение некоторой совокупности действий - это... условие цикла
счетчик цикла
тело цикла

Определите значение целочисленной переменной S после выполнения операторов:

S:=216

нц

для i от 1 до 4

S:=div(S,2)

кц

13
11
14

Определите значение целочисленной переменной S после выполнения операторов:

S:=0

нц для i от 1 до 2

нц для j от 2 до 3

S:=S+i+j

кц

кц

13
12
16

Определите значение переменной S после выполнения операторов:

i:=0; S:=0

нц пока i<3 i:=i+1;

S:=S+i*i

кц

Определите значение переменной S после выполнения операторов:

а:=1; b:=1; S:=0;

нц пока a<=5 a:=a+b;

b:=b+a;

S:=S+a+b

кц

Алгоритмическая структура какого типа изображена на блок-схеме?

цикл
ветвление
процедура
функция

А) 21 24 27 30 (каждый раз к числу прибавляется 3 единицы)
б) 35 40 45 50  (каждый раз к числу прибавляется 5 единиц)
в) 27 31 35 39  (каждый раз к числу прибавляется 4 единицы)
г) 19 18 16 15 (сначала отнимаешь 2 единицы, потом 1 единицу, и все ещё раз повторяется)
д) 25 36 49 64 (каждый раз увеличиваешь на не чётное число т.е  на 9,11,13,15)
е) 46 47 48 56 (сначала прибавляешь 8 единиц, а затем к двум числам прибавляешь по единице, а после все повторяется сначала)
ж) 55 62 69 75 (каждый раз прибавляешь по 7 единиц)
з) 32 24 16 8 (каждый раз отнимаешь по 8 единиц)
и) 400 500 600 700 (каждый раз прибавляешь по 100 единиц)
к) 312 313 314 412 (случай такой же как и под буквой е) только увеличиваешь сначала сотни, а потом единицы)
л) 312 322 332 412 (это аналогично только сначала увеличиваешь сотни, а потом десятки)
м) 33 65 129 257 ( сначала увеличиваешь на 2 в 4 степени (это 16), потом на 2 в 5 степени (это 32) и т.д.)
н) 12 17 23 30 (каждый раз прибавляешь последующее число от начала счета т.е к числам которые нужно написать сначала увеличиваешь на 4 потом на 5, на 6 и на 7)
о) 48 63 80 99 (точно такой же случай как и под буквой д)
п) 216 343 512 719 ( это все числа в кубе например (1 в кубе это 1), (2 в кубе это 8),(3 в кубе это 27), (4 в кубе это 64), (5 в кубе это 125) ну и так далее)
я надеюсь что не запуталась в этих цифрах)) 

1. Современное решение

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Среднее положительных ',a.Where(x->x>0).Average);
  Writeln('Минимум ',a.Min)
end.

Пример
n= 15
35 27 -7 -1 20 13 6 50 -9 23 -38 46 30 27 14
Среднее положительных 26.4545454545455
Минимум -38

2. Школьный вариант на древних версиях

program Ex1;
const
  nn=100; { ограничение на длину массива }
var
  i,n,s,k:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]>0 then begin
      k:=k+1; s:=s+a[i]
      end
    end;
  Writeln;
  Writeln('Среднее положительных ',s/k) 
end.

program Ex2;
const
  nn=100; { ограничение на длину массива }
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  min:=100; { больше максимально возможного }
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  Writeln('Минимум ',min)
end.

Выводы о том, чему и как учат в школе, делайте самостоятельно...