Решить задачку на языке 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:


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

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

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

Войти на сайт