Надо
для массива х(n) в котором есть отрицательные, положительные и нулевые значения элементов массива, вычмслить: 1) среднее арифметическое положительных значений элементов массива,2)сумму значений элементов массива, стоящих на четных местах, 3) среднее арифметическое значений элементов массива, удовлетворяющих условию 1=
​

Комментарии удалишь, попросил же с объяснением.

var mass:array[1..100] of integer;
        g,s,i,sum:integer;
begin
sum:=0;i:=0; // задаем начальное значение счетчику
randomize; //рандомизация
writeln('введите количество чисел в массиве (до 100)');
readln(g); // водим количество чисел
for s:=1 to g do // от нуля, до кол-ва чисел в массиве
begin
i:=i+1;
mass[i]:=random(51); //51 потому что всегда -1 еще идет...
if (mass[i] mod 2) = 0 then sum:=sum+mass[i]; //проверяем на четность и плюсуем, если четное.
writeln(mass[i]);
end;
writeln('чисел в массививе - '+g);                         //выводим значенияwriteln('сумма четных элементов = '+sum);
end.

a,b:integer; 
d:string[45]; 
begin 
SetConsoleOutputCP(1251); 
writeln('Введите число в диапазоне от 1 дo 100'); 
write('a='); 
readln(a); 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''; 
1: d:='I'; 
2: d:='II'; 
3: d:='III'; 
4: d:='IV'; 
5: d:='V'; 
6: d:='VI'; 
7: d:='VII'; 
8: d:='VIII'; 
9: d:='IX'; 
end; 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''+d; 
1: d:='X'+d; 
2: d:='XX'+d; 
3: d:='XXX'+d; 
4: d:='XL'+d; 
5: d:='L'+d; 
6: d:='LX'+d; 
7: d:='LXX'+d; 
8: d:='LXXX'+d; 
9: d:='XC'+d; 
end; 
b:=a mod 10; 
a:= a div 10; 
case b of 
0: d:=''+d; 
1: d:='C'+d; 
end; 
writeln('B Римской системе счисления ' ,d); 
readln; 
end.