Доступ к файлу com.txt, находящемуся на сервере mail.net, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) / Б) http В) :// Г) .txt Д) .net Е) mail Ж) com Задание 2 Доступ к файлу txt.net, находящемуся на сервере gov.org, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) .net Б) txt В) :// Г) http Д) / Е) gov Ж) .org Задание 3 Доступ к файлу net.txt, находящемуся на сервере doc.com, осуществляется по протоколу ftp. В таблице фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) / Б) .com В) ftp Г) .txt Д) doc Е) net Ж) :// Задание 4 Доступ к файлу edu.lib, находящемуся на сервере net.рф, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) :// Б) .рф В) .lib Г) edu Д) / Е) ftp Ж) net Задание 5 Доступ к файлу com.pas, находящемуся на сервере net.ru, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) :// Б) / В) .pas Г) net Д) .ru Е) http Ж) com

1)

const N = 10;

var A: array [1..N, 1..N] of integer;

i, j, maxMain, maxSecond: integer;

begin

       writeln('A: ');

       for i:= 1 to N do

       begin

               for j:= 1 to N do

               begin

                       A[i, j]:= random(-30, 30);

                       write(A[i, j]:4);

               end;

               writeln();

       end;

   

       for i:=1 to N do

       begin

               for j:= 1 to N do

               begin

                       if (i = j) and (maxMain < A[i, j]) then

                               maxMain := A[i, j];

                       if (i + j = N + 1) and (maxSecond < A[i, j]) then

                               maxSecond := A[i, j];

               end;

       end;

       writeln('Макс. на глав. диагонали: ' + maxMain);

       writeln('Макс. на побочной. диагонали: ' + maxSecond);

end.

2)

const N = 10;

var A: array [1..N] of real;

B, C: array of real;

i: integer;

begin

       write('A: ');

       for i:= 1 to N do

       begin

               A[i]:=random(-10, 10);

               write(A[i] + ' ');

       end;

       writeln();

   

       for i:=1 to N do

       begin

               if (a[i] > 0) then

               begin

                       SetLength(B, Length(B) + 1);

                       B[High(B)]:=a[i];

               end;

               if (a[i] < 0) then

               begin

                       SetLength(C, Length(C) + 1);

                       C[High(C)]:=a[i];

               end;

       end;

   

       write('B: ');

       for i:= 0 to Length(B) - 1 do

               write(B[i] + ' ');

       writeln();

   

       write('C: ');

       for i:= 0 to Length(C) - 1 do

               write(C[i] + ' ');

       writeln();

end.