
Перевести на Python type TArray = Array[0..19] Of Real; procedure RandomArray(var ar: TArray; const
mes: String); var k: Byte; begin Write(mes, ':'); for k := 0 to 19 do begin ar[k] := Random() * 198 - 99; Write(ar[k]:7:2); end; WriteLn; end; function SumXY(const x, y: TArray): Double; var k: Byte; S: Double; begin S := 0; for k := 1 to 15 do S := S + x[k] * y[k]; SumXY := S; end; function P(const z: TArray): Double; var k: Byte; S: Double; begin S := 0; for k := 0 to 19 do S := S + Sqr(z[k]); P := S; end; var x, y: TArray; begin Randomize(); RandomArray(x, 'X'); RandomArray(y, 'Y'); if (SumXY(x, y) > 0) then Write('P(x)=', P(x):0:3) else Write('P(y)=', P(y):0:3); end.

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




Here's the provided code translated into Python:
```python import random
def random_array(ar, mes): print(mes + ':', end='') for k in range(20): ar[k] += random.random() * 198 - 99 print(f'{ar[k]:7.2f}', end='') print()
def sum_xy(x, y): S = 0 for k in range(1, 16): S += x[k] * y[k] return S
def P(z): S = 0 for k in range(20): S += z[k] ** 2 return S
x = [0] * 20 y = [0] * 20
random.seed() random_array(x, 'X') random_array(y, 'Y')
if sum_xy(x, y) > 0: print(f'P(x) = {P(x):0.3f}') else: print(f'P(y) = {P(y):0.3f}') ```
Please note that the code assumes you have the `random` module imported. The `random_array` function generates random values for the given array, and the `sum_xy` function calculates the sum of products between corresponding elements of two arrays. The `P` function calculates the sum of squares of the elements in the array. Finally, the code generates two arrays `x` and `y`, calls the `random_array` function to populate them with random values, and then calculates and prints the result based on the condition.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili