
Дан двумерный массив,заполненный случайными числами от -10 до 10. Определить есть ли в данном
массиве строка,в которой равное количество положительных и отрицательных элементов.Если есть вывести Пожалуйста,срочно,до восьми часов ндо сдать

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

var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.



Для решения данной задачи, необходимо выполнить следующие шаги:
1. Создать и заполнить двумерный массив случайными числами от -10 до 10. 2. Для каждой строки массива посчитать количество положительных и отрицательных чисел. 3. Проверить, есть ли строка, в которой количество положительных и отрицательных чисел равно. 4. Если такая строка найдена, вывести сообщение "В массиве есть строка с равным количеством положительных и отрицательных чисел". Иначе - вывести сообщение "В массиве нет строк с равным количеством положительных и отрицательных чисел".
Пример кода на языке Python:
```python import random
# Создание двумерного массива array = [[random.randint(-10, 10) for _ in range(5)] for _ in range(5)]
# Проверка наличия строки с равным количеством положительных и отрицательных чисел found = False for row in array: positive = 0 negative = 0 for num in row: if num > 0: positive += 1 elif num < 0: negative += 1 if positive == negative: found = True break
# Вывод результата if found: print("В массиве есть строка с равным количеством положительных и отрицательных чисел") else: print("В массиве нет строк с равным количеством положительных и отрицательных чисел") ```
Данный код создает двумерный массив размером 5x5 и заполняет его случайными числами от -10 до 10. Затем происходит перебор каждой строки массива, подсчет количества положительных и отрицательных чисел и проверка на равенство этих количеств. Если такая строка находится, выводится соответствующее сообщение.


Похожие вопросы

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