Есть ответ 👍

Дайте определение к термину "эргономика"​

252
302
Посмотреть ответы 3

Ответы на вопрос:


не знаю

Объяснение:

блин, как задать свой вопрос


ответ:эргономика: это организм

Объяснение:


Тогда будет 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

Популярно: Информатика