<span>контекстное меню значка Мой компьютер – Свойства – Имя компьютера</span>
Const n=30;
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
<span>end.</span>
Если это Паскаль. то нумерация массива с 1 начинается. Цикл увеличивает все элементы массива на единицу. Следовательно, x[2] вернет 4.
10 бит, 20 бит, 2 байта, 2кбайта, 2024 байт (так как в одном кбайте 1000 байт)