Найти значение: min(p1, p2), где p1 – скалярное произведение векторов a и b. p2 – скалярное произведение векторов c и d. вычисление скалярного произведения векторов оформить подпрограммой. исходные данные: а=(-5.1, 2.7, 3.4, 6.2); в=(1.2, 3.4, 0, 2.5); с=(2.7, 3.4, 2.5, 6.3, 7.8); d=(1.7, -1.3, 2.8, 0, 7.2);

Тогда будет const   nm = 5; type   v = array[1..nm] of real; function sp(var a, b: v; n: integer): real; var   i: integer;   s: real; begin   s : = 0;   for i : = 1 to n do s : = s + a[i] * b[i];   sp : = s end; var   a, b, c, d: v;   p1, p2, min: real;   i, n: integer; begin   write('введите размерность вектора a: '); readln(n);   write('введите координаты вектора a через пробел: ');   for i : = 1 to n do read(a[i]);   write('введите координаты вектора b через пробел: ');   for i : = 1 to n do read(b[i]);   p1 : = sp(a, b, n);   write('введите размерность вектора c: '); readln(n);   write('введите координаты вектора c через пробел: ');   for i : = 1 to n do read(c[i]);   write('введите координаты вектора d через пробел: ');   for i : = 1 to n do read(d[i]);   p2 : = sp(c, d, n);   if p1 > p2 then min : = p2 else min : = p1;   writeln('меньшее из скалярных произведений (a**d) равно ', min); end. результаты выполнения: введите размерность вектора a: 4 введите координаты вектора a через пробел: -5.1 2.7 3.4 6.2 введите координаты вектора b через пробел: 1.2 3.4 0 2.5 введите размерность вектора c: 5 введите координаты вектора c через пробел: 2.7 3.4 2.5 6.3 7.8 введите координаты вектора d через пробел: 1.7 -1.3 2.8 0 7.2 меньшее из скалярных произведений (a**d) равно 18.56

Procedure sovp; var   i, j, r, c: byte;   ar: array[1..10, 1..10]of byte;   s: array[1..4] of string;   b: boolean; label l1;   begin   r : = random(2, 3);   l1:   c : = 1;   b : = false;   for i : = 1 to 10 do     for j : = 1 to 10 do     begin     ar[i, j] : = random(0, 1);     if(i < 5) then s[i] : = '';     end;       for i : = 1 to 9 do       begin         for j : = 1 to 10 do         begin         if(ar[i, j] < > ar[i + 1, j]) then b : = true;         end;       if(b = false) then       begin       s[c] : = i + ' строка совпалает с ' + (i + 1) + ' строкой';       c : = c + 1;       end;     b : = false;   end;   if(c < > r) then goto l1   else   begin     for var k : = 1 to c do if(k< > c)then writeln(s[k]);     for i : = 1 to 10 do     begin       for j : = 1 to 10 do write(ar[i, j], ' ');         writeln;     end;   end;     end;   begin   sovp; end. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

подробнее - на -