Ответы на вопрос:
Тогда будет 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
Популярно: Информатика
-
hdhtdhtdhtdh04.06.2022 19:18
-
ИваПоля20.04.2021 11:11
-
Muxaska12330.03.2023 07:57
-
01042006кристина010404.07.2021 05:56
-
МишкаКочолапый14.07.2022 23:00
-
SarJiG2A18.05.2020 17:11
-
kseniamattmn04.05.2022 17:17
-
Сирениюм18.06.2021 04:31
-
dyusembekov123.02.2021 01:08
-
Winstorm16.01.2021 20:55