Если я правильно рассуждаю,то получается так - 24 = 2 ^I
I=5
5*200 = 1000 \8= 125 байт
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.
<span>2/ точек по вертикали и горизонтали</span>
()()()()()()()()()()()()()()()()