Решить задачку на языке Pascal ABC.NETИмеется последовательность естественных чисел, число

Решить задачу на языке Pascal ABC.NET

Имеется последовательность естественных чисел, число частей которой нечётно. Ноль признак конца и в число частей
последовательности не заходит. Обусловьте, является ли среднее из чисел последовательности больше среднего арифметического данной последовательности и выдайте полученный итог в виде YES NO.

Задать свой вопрос
Паша Тер-Абрамянц
Обусловьте, является ли среднее из чисел последовательности. Среднее в смысле что стоит по середине всех?
1 ответ

var a:array [1..100001] of longint;

r,k:real;

s:longint;

begin

t:=1;k:=0;

while tlt;gt;0 do

 begin

  read(t);

  inc(k);

  a[k]:=t;

  s:=s+t;

 end;

r:=s/k;

if a[k+1 div 2]gt;r then writeln('Yes') else writeln('No');

end.


Ольга Кант
Ну да, сорик.
Valentina Naroznikova
Но без массива не делается.
Abraskin Daniil
Ведь некуда слаживать числа для запоминания
Ярослава Грымова
Точно? Мне кажется, что можно и не запоминать
Денис Саюшов
Но тогда мы не найдем средний в массиве.
Степа Ашеко
Ведь мы не знаем сколько нам чисел дадут.
Христич Яна
И середину предсказать невозможно.
Юрий
Означает, это недоработка условия задачи, если неоговорены ограничения
Виолетта Зажогина
Спасибо за помощь, всё одинаково)
Алина
Я еще пообщаюсь на данный момент с напарником, и я размышляю что может что-то получится.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести

Разные вопросы.

Я хочу найти решение и ответ для этой задачи и получить

Математика.

Здравствуйте Меня зовут Виталий, я AdOps-аналитик компании  Adfinity.pro Заинтересовал ваш проект obrazovalka.com Думаю сможем увеличить

Разные вопросы.

мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.

мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.

В семье из трех человек три электронных устройства: ноутбук, планшет и

Разные вопросы.

Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен

Кыргыз тили.

За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза

Математика.

Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,

Разные вопросы.

«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,

Алгебра.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт