сделать практическую. Нужно выбрать только по одной задаче из каждого пункта и построить диаграммы очень Выполнять в Excel

// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Количество элементов в списке: ');
  var L:=new List<integer>;
  var t:integer;
  Writeln('Вводите чеез пробел целочисленные элементы списка');
  for var i:=1 to n do begin
    t:=ReadInteger; L.Add(t)
    end;
  var i:=1;
  var s:=0;
  while i<=n-1 do begin s+=L[i]; Inc(i,2) end;
  Writeln('Среднее арифметическое с четных мест равно ',
    s/(n div 2):0:3)
end.

Тестовое решение:
Количество элементов в списке: 5
Вводите чеез пробел целочисленные элементы списка
-6 12 57 32 8
Среднее арифметическое с четных мест равно 22.000

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.