Question

1.Используя функцию random(x),получите числа в диапазонах от 1 до 10, от -10 до +10, от 50 до 100​. 2.Составьте программу заполнения массива 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве кол-во положительных и отрицательных значений. 3.Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20]. Найдите и выведите на экран только те элементы, значения которых совпадают. НА ЯЗЫКЕ ПАСКАЛЬ

Answer 1

Ответ:

на фото, все программы, кроме третей, я не понимаю ее

Объяснение:

первые три фото к 1-му заданию, 4 фото ко 2 заданию

Answer 2

1. В Python функция random(x) не существует, но есть функция random.randint(a, b), которая возвращает случайное целое число из диапазона от a до b (включительно). Чтобы получить числа в диапазонах от 1 до 10, от -10 до 10 и от 50 до 100, можно использовать следующий код: ```python import random number1 = random.randint(1, 10) number2 = random.randint(-10, 10) number3 = random.randint(50, 100) ``` 2. Для заполнения массива случайными значениями и подсчета количества положительных и отрицательных значений можно использовать следующий код на языке Python: ```python import random array = [] positive_count = 0 negative_count = 0 for _ in range(100): number = random.randint(-20, 20) array.append(number) if number > 0: positive_count += 1 elif number < 0: negative_count += 1 print("Количество положительных значений:", positive_count) print("Количество отрицательных значений:", negative_count) ``` 3. На языке Pascal код для заполнения двух массивов случайными числами в диапазоне от 1 до 5 и нахождения и вывода на экран элементов, значения которых совпадают, может выглядеть следующим образом: ```pascal program RandomArrays; uses crt; const n = 20; var A: array[1..n] of Integer; B: array[1..n] of Integer; i, j: Integer; begin randomize; // Заполнение массивов случайными числами от 1 до 5 for i := 1 to n do begin A[i] := random(5) + 1; B[i] := random(5) + 1; end; // Поиск и вывод элементов, значения которых совпадают writeln('Элементы массивов, значения которых совпадают:'); for i := 1 to n do begin for j := 1 to n do begin if A[i] = B[j] then writeln('A[', i, '] = B[', j, '] = ', A[i]); end; end; readln; end. ``` Надеюсь, это поможет вам! Если у вас есть еще вопросы, не стесняйтесь задавать.