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

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! type   tq=queue< integer> ; procedure заполнениеочереди(q: tq; n: integer); begin   randomize;   loop n do begin       var k: =random(-20,40);       q.enqueue(k)       end; end; procedure сумманужныхэлементов(q: tq; var s: integer); begin   var ko,k: integer;   for var i: =1 to q.count do begin       k: =q.dequeue; q.enqueue(k);       if k.isodd then ko: =k;       if i=3 then s: =k       end;   s+=ko   end; procedure удалитьэлемент(q: tq; p: integer); begin   for var i: =1 to q.count do begin       var k: =q.dequeue;       if i< > p then q.enqueue(k)       end end; begin   var myq: =new tq;   var n: =readinteger('кол-во элементов (не менее 4): ');   заполнениеочереди(myq,n);   myq.println;   var s: integer;   сумманужныхэлементов(myq,s);   myq.enqueue(s); // искомая сумма помещена в очередь   myq.println;   удалитьэлемент(myq,4);   myq.println end. пример кол-во элементов (не менее 4): 13 -7 12 -18 4 23 -1 15 -11 9 12 5 3 2 -7 12 -18 4 23 -1 15 -11 9 12 5 3 2 -15 -7 12 -18 23 -1 15 -11 9 12 5 3 2 -15

Палитра из 256 цветов означает, что для хранения цвета каждого пикселя потребуется бит, или 1 байт. Всего в изображении пикселей - следовательно, "весить" оно будет байт.

В одном килобайте 1024 () байта, в одном мегабайте - 1024 килобайта; соответственно, байт будут равны килобайт, или мегабайт.

ответ: 2.