<span>В России построена первая телеграфная линия - 40-е гг. 19 века.</span>
<span>В Америке изобретён телефон - 1876 г</span>
<span>Русский ученый Попов открыл радиосвязь - <span>1895 г.</span></span>
Создан первый телевизор - 30-е гг. 20 века
<span><span><span><span><span><span><span><span>В США начала функционировать первая в мире компьютерная - </span>1969 г. </span></span></span></span></span></span></span>
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
a.TakeWhile(p -> p > 0).DefaultIfEmpty.Average.Println
end.
Объяснение:
TakeWhile(p -> p > 0) - отбирает элементы от начала до тех пор, пока условие p > 0 истинно, т.е. со значением, большим нуля.
DefaultIfEmpty - если первое же значение не положительно, результатом будет один элемент, равный нулю (нельзя найти среднее, если элементов не отобрано вообще, получим 0/0)
Average - находит среднее отобранных элементов
Компьютерная графика<span> — область </span>информатики<span>, которая изучает методы и способы создания и обработки изображений на экране компьютера с помощью специальных программ. В зависимости от способа формирования изображений компьютерную </span>графику <span>подразделяют на растровую и векторную.
_____________________________________________________________
</span><span>Растровое изображение - это изображение, в основе которого лежит таблица.
</span>Достоинства растрового изображения:
⇒ реалистичность изображения;
⇒ возможность изображать на растровом изображении все, что угодно;
⇒ применение к растровым изображениям разнообразных эффектов;
⇒ использование растровых форматов изображений при создании веб-страниц в Интернете.
Недостатки растровых изображений:
⇒ плохое масштабирование растровых изображений; увеличение его без потери качества невозможно;
⇒ невозможность разбить растровое изображение на части и редактировать каждую из них;
⇒ размер растрового изображения <span>больший по сравнению с векторным.</span>
<span>Far Manager</span> - <span>системное программное обеспечение</span>
<span>Microsoft Excel</span> - <span>прикладное программное обеспечение</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>