Заполнить очередь случайными числами из промежутка [-20; 40]. Отыскать сумму заключительного

Заполнить очередь случайными числами из интервала [-20; 40]. Отыскать сумму заключительного нечетного элемента и третьего элемента очереди. Итог поместить в очередь. Удалить 4 элемент из очереди. После исполнения каждой операции выводить содержимое очереди на экран

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var q:=new Queuelt;integergt;;
  var n:=ReadInteger('Кол-во элементов (не наименее 4):');
  Randomize;
  var k:integer;
  for var i:=1 to n do begin
    k:=Random(-20,40); Print(k);
    q.Enqueue(k)
    end;
  Writeln; // очередь заполнена, выведены ее элементы
  var (ko,s):=(-100,0);
  for var i:=1 to n do begin
    k:=q.Dequeue; q.Enqueue(k);
    if k.IsOdd then ko:=k;
    if i=3 then s:=k
    end;
  s+=ko;
  q.Enqueue(s);
  q.Println; // искомая сумма помещена в очередь
  for var i:=1 to n do begin
    k:=q.Dequeue;
    if ilt;gt;4 then q.Enqueue(k)
    end;
  q.Println
end.
Вован Цокура
А можно её через процедуры сделать?
Вика Андриевская
сможете переработать через процедуры? пожалуйста
Арина Марега
Я могу сделать ещё один вопрос, в котором в этот раз я укажу то что надобно делать через процедуры
Кира Тунякина
Заполнить очередь случайными числами из интервала [-20; 40]. Отыскать сумму последнего нечетного элемента и третьего элемен... https://znanija.com/task/28483565?utm_source=androidutm_medium=shareutm_campaign=question
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт