В любом компьютере обязательно есть устройства, которые хранят информацию. Устройства хранения информации в компьютере разделяются на оперативную память (память, которая нужна для хранения промежуточных результатов вычислений) и долговременную — здесь хранятся файлы (определение довольно грубое но,суть отражает верно).
В оперативной памяти компьютера любая информация хранится только до выключения компьютера. Если вам нужно сохранить документ и вернуться к работе над ним завтра, его нужно записать на долговременное устройство хранения, обычно – на диск.
Можно цикл запустить наооборот:
for i:=n downto 1 do
Writeln(x[i]);
Вот такое будет))
25(10)=11001(2)
109(10)=1101101(2)
Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.