begin
var Q := new Queue<integer>;
SeqRandom(14, 0, 80).ForEach(t -> begin Q.Enqueue(t) end); // заполнили
Q.Println;
var m := Trunc(Q.Where(t -> t mod 5 = 0).DefaultIfEmpty.Average); // среднее
Q.Enqueue(m);
Q.Println;
// удаление
var L:=Q.ToList; // переписать в список
L.RemoveAt(4); // удалить 5-й элемент
Q.Clear; // очистить очередь
foreach var t in L do // поэлементное добавление
Q.Enqueue(t);
Q.Println
end.
![Заполнить очередь 14 целыми числами из интервала [0; 80]. найти целую часть среднего арифметического](/tpl/images/0931/9679/912f1.jpg)
При работе по локальной сети можно подключить множество компьютеров, и тем самым быстро обмениваться информацией, не используя флешки.
Программное обеспечение вычислительных сетей состоит из трех составляющих:
1)Автономных операционных систем (ОС), установленных на рабочих
станциях;
2)Сетевых операционных систем, установленных на выделенных серверах,
которые являются основой любой вычислительной сети;
3)Сетевых предложений или сетевых служб
Одноранговая, децентрализованная, или пиринговая сеть — это оверлейная компьютерная сеть, основанная на равноправии участников.
Сервер — специализированный компьютер или специализированное оборудование для выполнения на нём сервисного программного обеспечения.
Рабочая станция — комплекс аппаратных и программных средств, предназначенных для решения определённого круга задач.
вроде так :)
program test;
var i : integer;
begin
write(2+2*2);
end.
Объяснение:Я
Я только начал его изучать, так что может быть не правильно