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

Question

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

Comments

через массив?

---

Или простая последовательность? Начальное или конечное значение известно? Или вообще всех четных двузначных?

---

Тогда пишу для массива, заполненного случайными числами от 100 до 100. И ищу среднее арифметическое для двузначных четных

---

Условие, по-хорошему, неполное. И задания с такими условиями надо удалять

Answer 1

Const
n=20;
var
a: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<br>                           begin
                               s:=s+a[i];
                               k:=k+1;
                            end;
            end;writeln;
if k<>0 then
    writeln(s/k:4:2)
else
    writeln('нет четных двузначных');
end.

Comments

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

Answer 2

Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
end.

Comments

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

---

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

---

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

---

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