Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

вечер добрый.
Суть программы:Программа создаёт массив из 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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS