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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2020, 22:30   #1
Сyberbitch
Пользователь
 
Регистрация: 09.12.2019
Сообщений: 12
По умолчанию первый и второй элемент

вечер добрый.
Суть программы:Программа создаёт массив из 8 чисел, забирает первые 2 числа, считает среднее арифметическое этих 2-х чисел, и ставит полученное число в конец очереди.
Суть задачи:Переделать программу чтобы она так-же считала,только не трогала и не убирала первые 2 числа, а сохраняла их на своём месте и добавляла в конец их среднее арифметическое.

Код:
begin
  var i := new Queue<integer>(SeqRandomInteger(8, -20,50 ));
  i.Println;
  writeln;
  var a := (i.Dequeue+i.Dequeue) div 2;
  i.Enqueue(a);
  i.Println;
end.
Сyberbitch вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программу, которая создает двухмерный массив и заполняет его по следующему принципу: первый элемент массива принимает значение введенного пользователем числа, второй - число + 1 DEXTER322 Помощь студентам 5 31.03.2019 11:01
[РЕШЕНО][Pascal] поменять местами найденный максимальный элемент в очереди и первый элемент очереди Mishka_M Помощь студентам 4 16.05.2018 00:06
Не вводится первый символ во второй TexBox andreysuperman42 Microsoft Office Excel 2 16.01.2018 21:15
Одномерный массив. Необходимо заменить последний положительный элемент на второй элемент массива кумитэ Паскаль, Turbo Pascal, PascalABC.NET 1 19.12.2011 16:44
Form1 на второй план, Form2 - на первый xxxsas Общие вопросы C/C++ 8 31.05.2011 05:47