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

Ответы 7

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

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

      varian
    • 6 лет назад
    • 0
  • А в целом такая программа не нужна, поскольку искомая сумма - это сумма арифметической прогрессии с первым членом 10, последним 98 и разностью 2.
  • Не сказано, что числа только положительные. В принципе ничего не сказано в условии толком. Ведь возможно и такое, что числа вводятся с клавиатуры, не в массиве и среди них нужно выбрать нужное
    • Автор:

      gould
    • 6 лет назад
    • 0
  • Именно так, что возможно все с таим условием. Оно неполное.
    • Автор:

      flashbeps
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      jaida
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years