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)
#include <iostream>
#include <list>
#include <algorithm>
#include <iterator>
#include <cctype>
int main()
{
std::list<char> lt{'5', 'a', 'c','g', '7', 't', '!'};
std::cout << std::endl;
std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));
lt.remove_if([](char& var1)
{
return !(std::tolower(var1, std::locale()) >= 'a' && std::tolower(var1, std::locale()) <= 'z');
});
std::cout << std::endl;
std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));
}
Если часы только целые var a:integer;
Объяснение:
program Project1;
var a:real;
begin
write('Введите время, которое тратите на уроки: ');
readln(a);
if a<=1 then
write('Вы ленитесь')
else
if a<=3 then writeln('Это оптимальное время')
else writeln('Подумайте о здоровье');
readln;
end.