Выполнить мини проект на тему интернет. !

Энтернет-всемирная сеть в каторой можно например задать вапрос где ты находишся,как пригатовить пищу,как зделать уроки и так далие. Энтернетом нельзя злоупотреблять не сидеть долго (ато как говарят от интернета тупеют и глаза портяца)

"Извените за ошибки и кстаим скобки каторые я написал это ваш выбор типо выбирайте писать это или нет ну как получилось удачи"

 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.

поскольку неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. алгоритм для ос windows 10

создадим общую папку

1) одинаково называем рабочую группу у обоих компьютеров.

пуск → параметры → система → о системе, пункт "организация"

если разная, то сведенья о системе → изменить параметры → изменить и ввести имя группы

2) найти/открыть папку, которую требуется сделать общей

3) клик правой кнопкой мыши по папке → свойства → доступ → расширенная настройка

4) нажать «открыть общий доступ к этой папке»

5) открыть «разрешения» и выставить необходимые разрешения

6) создать или скопировать файл в выбранную папку

скачать файл к себе на компьютер

1) заходим в проводник - сеть

2) находим компьютер, где лежит файл. открываем

3) открываем нужную папку, к которой дан общий доступ

4) при необходимости в всплывающем окне вводим логин и пароль учетной записи компьютера в который мы зашли (зависит от настроек доступа и политик безопасности)

5) находим файл и копируем его.

6) открываем целевую папку на своем компьютере и вставляем туда файл