Program gt;
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end;
if(max=0)then writeln('положительных чисел нет')else writeln(max);
end.
Кбит/с=1024бит/с
мбит/с= 1048576 бит/с
гбит/с= 1073741824бит/с
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт