1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); min:=mas[1]; for i:=1 to n do if mas[i] < min then begin min:=mas[i]; k:=i; end; for i:=1 to n do write(mas[i]:4); writeln(); writeln('minimalnoe=',min); writeln('index=',k); end. 2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); for i:=1 to n do write(mas[i]:4); for i:=1 to n do if mas[i] mod 3 = 0 then mas[i]:=0; writeln(); for i:=1 to n do write(mas[i]:4); end.
1. перетаскивание (из одного окна в другое, то есть из папки откуда в папку куда) 2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом) 3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...") 4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения) 5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.
Не плохой вариант, написан за минуты 3