Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
<span>1) H:\Школа\Задания\Математика
Решение:
</span><span>H:\Школа\Андрей
Поднимаемся вверх и получаем
</span><span>H:\Школа
</span>Спускаем вниз в каталог "Задания"
H:\Школа\<span>Задания
</span>Спускаем вниз в каталог "Математика<span>"
</span>H:\Школа\Задания\Математика
<em>Ответ 108 страниц</em>
Определяем общий информационный объем Vt=7680 бит/сек *1,5 мин =7680 бит/сек * 90 сек =691200 бит
Информационный объем одной страницы i * k =16 бит * 400 = 6400 бит
Определяем количество страниц 691200 бит / 6400 бит = 108