В нашем городе имеется образовательный центр, который занимается обучением учащихся. Центр состоит из 4 учителей, системного администратора и 1 администратора, который ведет бухгалтерскую отчетность центра. Курсы проводятся по следующим секциям: «Программирование», «Дизайн», «Робототехника». Помимо этого вы можете обратиться к ним для ремонта своего ПК или ноутбука. согласно сценарию заполнить следующую таблицу в тетради или отдельным файлом:

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=7;

Var
 ar:array[1..n] of integer; //массив дней
 i,k:integer;
 sr:real;
begin
k:=0; //счётчик превысивших
 for i:=1 to n do
   begin
   readln(ar[i]); //вводим дни
   sr:=sr+ar[i]; //заодно вычисляем сумму дневных температур
  end;
 sr:=sr/n; {делим сумму на количество дней, получаем среднюю температуру}
 for i:=1 to n do
   if sr<ar[i] then inc(k); {если температура некотрого для выше средней, увеличиваем счётчик}
 writeln('Средняя температура=',sr,', за неделю ', k,' дней превысили эту температуру');
end.

Пример ввода:
1
2
...
7
Пример вывода:
Средняя температура=4, за неделю 3 дней превысили эту температуру

1)
Замечание: не очень понятно какое число надо делить на 3. В программе на 3 делится первый элемент из каждой пары.
const n=12;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n div 2 do
 begin
 a[2*i-1]:=2*i;
 a[2*i]:=a[2*i-1] div 3;
 end;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Результат:
2 0 4 1 6 2 8 2 10 3 12 4

2)
const n=12;
var b:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 begin
 b[i]:=random(71)-10;
 write(b[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
 b[i]:=b[i]-i;
 write(b[i]:4);
 end;
writeln;
end.

Пример:
17 54 4 -7 31 33 -6 27 14 59 0 43
16 52 1 -11 26 27 -13 19 5 49 -11 31