Var
n, i, k, max: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(k);
if ((k < 0) and ((max = 0) or (k > max))) then
max := k;
end;
writeln(max);
end.
121(10)=171(8)=1111001(2)=79(16)=121(10)
V=2048*100 бит/с=2^11 * 4*25=25*2^13 бит/с
F=1000*2^13 бит=8*125*2^13=125*2^16 бит
t=F/v=125*2^16/(25*2^13)=5*2^3=5*8=40 c
ответ 40 с
===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
1) как угодно, зависит конечно от возможностей редактора и его задач
2) ctrl+g - переход к определенной строке по номеру или странице
Home, End - Начало/Конец строки
стрелочки и так понятно
CTRL+HOME/CTRL+END - переход в начало/конец всего текста
pgUp/pgDown - переход на экран вверх/вниз
Так же еще есть закладки
ctrl+f - поиск в тексте
Бывает еще система структуры документа, которая позволяет быстро перемещаться между заголовками и подзаголовками
ctrl+f12 - переход к определению