"ОЧЕНЬ "обчислити середнє арифметичне всіх елементів масиву x які є від'ємними і мають парні номери (в лазерус)​

Локальная эта сеть объединяет компьютеры расположенные в пределах одного здания(одна комната одно учреждение завод) причиной создания локальной сети является автоматизация промышленных процессов обработка различных документов. Каждый компьютер подключённый к локальной сети осуществляет связь с сетевого адаптера.
В каждой таблице БД может существовать первичный ключ. Под первичным ключом понимают поле или набор полей, однозначно (уникально) идентифицирующих запись. Первичный ключ должен быть минимально достаточным: в нем не должно быть полей, удаление которых из первичногоключа не отразится на его уникальности.

Const n = 10;
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите диапазон от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
 write(mas[i]:4);
for i:=n downto 1 do
if mas[i]>0 then
begin
 index:=i;
 break
end;
mas[index]:=mas[2];
writeln;
writeln('Результат выполнения задания: ');
for i:= 1 to n do
 write(mas[i]:4);
readln
end.

Введите диапазон от a до b: 10 40
Полученный массив:
  25  13  38  31  39  12  16  11  26  33
Результат выполнения задания:
  25  13  38  31  39  12  16  11  26  13