Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
<span>end.</span>
1, 4 ,5 ,6, 7, 8, 3(под вопросительным знааком)
Цикл со счетчиком 17-4.png
<span>Цикл с условием 17-5.jpg</span>
Количество информации в одном символе = log(2)256=8 бит
Объем повести:
90*40*50*8 бит = 90*40*50 байт = 180000 байт ≈ 176 Кбайт