поскольку неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. алгоритм для ос 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.
const n=3;
var a:array [1..n,1..n] of integer;
k,i,j:integer;
begin
Writeln('vvedite massiv:');
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
Writeln;
end;
k:=0;
for i:= 1 to n do
for j:= 1 to n do
if a[i,j] mod 5=0 then inc(k);
writeln('kolicestvo cisel kratnih 5=', k);
readln;
end.