Question

Составьте программу которая формирует массив из 20 случайных чисел от -10 до 10 и находит отрицательные элементы

Answer 1

Program p1;
Var i:integer;
      a:array[1..20] of integer;
Begin for i:=1 to 20 do
  begin
   a[i]:=random(-10,10);
   write(a[i],' ');
  end;
 writeln;
 for i:=1 to 20 do
  if a[i]<0 then write(a[i],' ');
End.

проверь работает или нет,нет возможности проверить просто

Answer 2

Для создания программы на языке программирования, которая формирует массив из 20 случайных чисел от -10 до 10 и находит отрицательные элементы, мы можем воспользоваться, например, языком Python. Вот пример такой программы:

import random

# Функция для создания массива из 20 случайных чисел от -10 до 10
def generate_random_array():
    return [random.randint(-10, 10) for _ in range(20)]

# Функция для нахождения отрицательных элементов в массиве
def find_negative_elements(array):
    return [num for num in array if num < 0]

# Основная программа
if __name__ == "__main__":
    # Создаем массив
    random_array = generate_random_array()

# Выводим сгенерированный массив
    print("Сгенерированный массив:", random_array)

# Находим и выводим отрицательные элементы
    negative_elements = find_negative_elements(random_array)
    print("Отрицательные элементы:", negative_elements)

Этот код использует библиотеку `random` для генерации случайных чисел и создает массив из 20 элементов. Затем он находит и выводит все отрицательные элементы этого массива.