111, 34, 76, A2 -------------------------
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrInteger(n);
var p:=a[0]; Print(p);
for var i:=2 to a.Length-1 do
if a[i]>p then begin p:=a[i]; Print(p) end;
end.
<u>Пример</u>
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87
Пусть объем оперативной памяти 4Гб
4Гб = 4 * 1024 * 1024 * 1024 байт = 4 294 967 296 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 536 870 912 000 / 2400 = 1 789 569.70666667
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во = 1 789 569
Высота = 1 789 569 / 100 = 17 895.7 см
600 Мбайт = 614 400 кбайт
Кол-во фото 614400 / 400 = 1 536
Время = 1536 * 5 с = 7 680 с = 2.13333333333333 часов