поскольку неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. алгоритм для ос windows 10
создадим общую папку
1) одинаково называем рабочую группу у обоих компьютеров.
пуск → параметры → система → о системе, пункт "организация"
если разная, то сведенья о системе → изменить параметры → изменить и ввести имя группы
2) найти/открыть папку, которую требуется сделать общей
3) клик правой кнопкой мыши по папке → свойства → доступ → расширенная настройка
4) нажать «открыть общий доступ к этой папке»
5) открыть «разрешения» и выставить необходимые разрешения
6) создать или скопировать файл в выбранную папку
скачать файл к себе на компьютер
1) заходим в проводник - сеть
2) находим компьютер, где лежит файл. открываем
3) открываем нужную папку, к которой дан общий доступ
4) при необходимости в всплывающем окне вводим логин и пароль учетной записи компьютера в который мы зашли (зависит от настроек доступа и политик безопасности)
5) находим файл и копируем его.
6) открываем целевую папку на своем компьютере и вставляем туда файл
не так уж и трудно, если
program project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max: =0;
min: =0;
c: =0;
for i: =1 to n do
begin
read(f1,a);
if i=1 then
b: =a;
if a> max then
max: =a;
k: =a-c;
c: =a;
if k< 0 then
begin
k: =abs(k);
min: =min+k;
if k> min then
min: =k;
end;
end;
max: =max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.
var x1,y1,x2,y2:real;
begin
readln(x1,y1);
readln(x2,y2);
if (x1*x2>0)and(y1*y2>0) then writeln('YES')
else writeln('NO');
end.
Пример:
3 3
5 1
YES