Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2020, 13:16   #1
Екатерина_________
Новичок
Джуниор
 
Регистрация: 20.02.2020
Сообщений: 5
Восклицание Помогите изменить код

Нужно, чтобы очередь заполнилась 15 случайными числами из интервала [0;100]. Найти среднее арифметическое нечетных чисел. Результат поместить в очередь.

Код:
begin
  var S := New Queue<Real>;
  loop 15 do S.Enqueue(Random(100));
  Write('Очередь: '); S.Println;
  WriteLn($'{NewLine}Среднее арифметическое нечетных чисел {S.Max} равно {1/S.Max}');
  Write($'{NewLine}Удалён первый элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
  Write($'{NewLine}Удалён второй элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
  Write($'{NewLine}Удалён третий элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
end.
Екатерина_________ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите изменить код(он работает, но нужно изменить) Programmer_1 Помощь студентам 4 17.09.2018 20:05
Помогите изменить код Риназ PHP 2 16.06.2017 13:37
помогите изменить программу _domenik_ Общие вопросы Delphi 2 25.02.2014 02:54
Помогите изменить программу Dmit Софт 0 18.06.2009 22:07
Помогите изменить *.exe nada2001 Безопасность, Шифрование 1 24.09.2008 17:40