В паскале написать программу:
Вывести среднее арифметическое двузначных четных чисел

Решена задача: "В массиве из 20 целочисленных элементов найти сумму тех элементов, значения которых четные и двухзначные." Условие вопроса неоднозначное, поэтому возможна и такая его трактовка.

Решена задача: "Среди всех двухзначных чисел найти сумму четных." Условие вопроса неоднозначное, поэтому возможна и такая его трактовка. А само решение могло бы быть проще, если вместо цикла со счетчиком использовать цикл WHILE и идти от 10 с шагом 2 - тогда достаточно просто находить сумму без проверки четности.

А в целом такая программа не нужна, поскольку искомая сумма - это сумма арифметической прогрессии с первым членом 10, последним 98 и разностью 2.

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

Именно так, что возможно все с таим условием. Оно неполное.

constn=20;vara:array[1..n]of integer;i,k:integer;s:real;    begin        for i:=1 to n do            begin                a[i]:=random(201)-100;                write(a[i]:4);                    if (a[i]>=10)and(a[i]<100)and(a[i]mod 2=0)then                           begin                               s:=s+a[i];                               k:=k+1;                            end;            end;writeln;if k<>0 then    writeln(s/k:4:2)else    writeln('нет четных двузначных');end.

var i,k:integer;rez:real;beginfor i:=10 to 99 doif (i mod 2)=0 thenbegink:=k+1;rez:=rez+i;end;rez:=rez/k;writeln(rez:0:1);end.