Вычислить значения функции при любых целочисленных параметрах, используя условный оператор B полной форме и неполной форме (2 программы):

1) var a: array [0..9] of integer;     i: integer; begin       for i : = 0 to 9 do           a[i] : = random(25); end.2)var a: array [0..9] of integer;     i, m: integer; begin      for i : = 0 to 9 do      begin          readln(a[i]);           if (a[i] mod 2 = 0) then m : = m + a[i];       end;       writeln(m / 10); end.3)var a: array [0..9] of integer;     i, m: integer; begin      for i : = 0 to 9 do      begin          a[i] : = random(50);           writeln('[', i, '] => ', a[i]);           if ((a[i] mod 2 = 1) and (i mod 2 = 0)) then a[i] : = a[i] * 2;       end;       writeln('');       for i : = 0 to 9 do          writeln('[', i, '] => ', a[i]); end.4)var a: array [0..9] of integer;     i, m: integer; begin      a[0] : = 2;       a[1] : = 3;       a[2] : = 5;       a[3] : = 7;       a[4] : = 11;       a[5] : = 13;       a[6] : = 17;       a[7] : = 19;       a[8] : = 23;       a[9] : = 29;       for i : = 0 to 9 do          writeln('[', i, '] => ', a[i]); end.c последним но работает же =)