Найти значение: 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

михаил - футбол,велоспорт.

николай - теннис, волейбол.

михаил - баскетбол, плавание.

решение: так как михаил не увликаеться  велоспортом, волейболом  и тенисом значет он занимаеться плаванием. тогда получаеться что тенисист - николай и потому как он самый старший то павел будет велосипедистом из этого выходит что волейболистом будет николай.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.