1.заполните одномерный массив B1 размерностью в N(< 30 задает пользователь при выполнении программы) элементов так, чтобы каждый элемент с четным номером был равен половине своего номера, а каждый элемент с нечетным номером - количеству элементов в массиве. сформированный массив вывести  на экран в столбик.
2.а) найдите среднюю температуру за неделю. (температура была: -5; -3; -7; -6; -2; -4; -3)
б) сколько дней было выше средней? ниже средней?
3. сформируйте массив BC размерностью 30 элементов случайным образом из диапазона 0 - 50. сформированный массив выведите на экран в строку. подсчитайте сумму всех четных элементов массива и отдельно сумму элементов имеющих четные индексы. выведите результаты подсчета на экран. замените элементы равные своему индексу на самый большой элемент массива, если таковые имеются. получившийся массив выведите на экран в столбик. отсортируйте получившейся массив по убыванию. 

1.var n,i: integer; B1: array [1..30] of real;begin writeln('Введите N: '); read(n); writeln('Введите ',n,' элементов: '); for i:= 1 to n do  begin  readln(B1[i]);  if i mod 2 = 0 then B1[i]:=B1[i]/2;  if i mod 2 <> 0 then B1[i]:=n;  end; writeln('Массив: '); for i:= 1 to n do writeln(B1[i])end.2.var sum,c1,c2,i: integer; T: array [1..7] of integer;begin writeln('Введите температуру за 7 дней: '); for i:= 1 to 7 do  begin  readln(T[i]);  sum:=sum+T[i];  end; writeln('Средняя температура: ',sum/7); for i:= 1 to 7 do  begin  if T[i] > sum/7 then inc(c1);  if T[i] < sum/7 then inc(c2);  end; writeln('Кол-во дней с температурой выше средней: ',c1,'; ниже средней: ',c2);end.3.var x,j,max,c,sum,i: integer; BC: array [1..30] of integer;begin randomize; writeln('Массив: '); for i:= 1 to 30 do  begin  BC[i]:=random(51);  write(BC[i]:4);  if BC[i] mod 2 = 0 then inc(c);  if i mod 2 = 0 then sum:=sum+BC[i];  end; writeln; writeln('Кол-во четных элементов: ',c); writeln('Сумма элементов с четными индексами: ',sum); max:=BC[1]; for i:= 1 to 30 do  if BC[i] > max then max:=BC[i]; writeln('Результат: '); for i:= 1 to 30 do  begin  if BC[i] = i then BC[i]:=max;  writeln(BC[i]);  end; for i := 30 downto 2 do  for j := 2 to i do  if BC[j] > BC[j - 1] then   begin    x := BC[j];    BC[j] := BC[j - 1];    BC[j - 1] := x;   end;  writeln('По убыванию: '); for i:= 1 to 30 do write(BC[i]:4);end.