Регистрация
Lukachyk2017
30.06.2022 03:51
Информатика
Есть ответ 👍

сделать 2 и 3 задание

239
459
Посмотреть ответы 1

Ответы на вопрос:

dzyskristina503
dzyskristina503
4,6(50 оценок)
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var q: =new queue< integer> ;   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 i< > 4 then q.enqueue(k)       end;   q.println end.

Популярно: Информатика