Для каждого столбца заданной матрицы найти и напечатать номера строк, содержащих отрицательные элементы

@LKe_ · Регистрация: 28.10.2020

Author24 — интернет-сервис помощи студентам

Для каждого столбца заданной матрицы T найти и напечатать номера строк, содержащих отрицательные элементы.

Матрицу можно взять, например, 4x4 или 4x6

Больше ничего не могу написать т.к сам не понял что от меня хотят

@Puporev · 01.11.2020, 18:21

Сообщение от LKe_

т.к сам не понял что от меня хотят

И не только Вы.

@Cyborg Drone · 02.11.2020, 07:39

Отчего же, всё предельно ясно. Если перевести с русского на русский, нужно для каждого столбца матрицы напечатать номера отрицательных элементов.

Pascal

const
  m = 4;
  n = 6;
var
  a: array[1..m, 1..n] of integer;
  i, j, k: integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln('Номера отрицательных элементов столбцов:');
  for j := 1 to n do
    begin
      write('Столбец ', j, ':');
      k := 0;
      for i := 1 to n do
        if a[i, j] < 0 then
          begin
            write(i:2);
            k := k + 1
          end;
      if k = 0 then write(' Нет отрицательных элементов');
      writeln
    end;
  readln
end.

@LKe_ · 02.11.2020, 16:51 **[ТС]**

строчка "for j := 1 to n do" ,которая идет после k:=0 ,оказалась лишней
(Program1.pas(25) : Ошибка времени выполнения: Индекс находился вне границ массива.).

А так все работает,спасибо огромное

@Cyborg Drone · 02.11.2020, 19:11

Неправда. Никакая из строк не лишняя. Вероятно, Вы внесли какую-то отсебятину в мою программу вместо того, чтобы определить, что Вы делаете не так. Рано радоваться.

Не знаю, как именно Вы исказили мою программу, но после строки k := 0; идёт совершенно не та строка, которую Вы указали. Смотрите:

Pascal

23
24

      k := 0;
      for i := 1 to n do

Какое, к лешему, j, если у меня написано i? Я так понимаю, Вы, вместо того, чтобы скопировать мой код, перепечатали его вручную, что ли? И ошиблись, как и планировалось?

Полагаю, заходите на форум со смартфона? В этом проблема? Так можно же, к примеру, выделить текст, и отправить его самому себе на почту. Если нет, то необязательно так. Наверняка найдётся способ сохранения текста куда-либо с Вашего смартфона.

Или, может быть, Вы не знаете, как открыть сторонний текстовый файл в Вашей среде программирования?

@LKe_ · 03.11.2020, 18:31 **[ТС]**

Я не ту строчку изначально скопировал и отправил сюда. Верно, там не j,а i. Я удалил строчку "for i := 1 to n do. "
Если не убрать ее, то программа выдает ошибку:
Program1.pas(25) : Ошибка времени выполнения: Индекс находился вне границ массива.

@LKe_ · 03.11.2020, 18:42 **[ТС]**

Я пень в этом деле, поэтому спорить как правильно не хочу и не имею права. Я просто сделал так, чтобы программа пошла. Верно это или нет - не знаю

@Cyborg Drone · 03.11.2020, 21:24

А, точно. Ошибка. Конечно, выход за границы массива. По i максимальный индекс равен 4, а n равно 6. Замените

Pascal

24	for i := 1 to m do

Не пойму, когда я там n вместо m написал...

@LKe_ 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 8
		1
	Для каждого столбца заданной матрицы найти и напечатать номера строк, содержащих отрицательные элементы 01.11.2020, 18:12. Показов 1499. Ответов 7 Метки Pascal (Паскаль) (Все метки) Для каждого столбца заданной матрицы T найти и напечатать номера строк, содержащих отрицательные элементы. Матрицу можно взять, например, 4x4 или 4x6 Больше ничего не могу написать т.к сам не понял что от меня хотят 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.11.2020, 18:21	2
	Сообщение от LKe_ т.к сам не понял что от меня хотят И не только Вы. 0

@LKe_ 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 8
	02.11.2020, 16:51 [ТС]	4
	строчка "for j := 1 to n do" ,которая идет после k:=0 ,оказалась лишней (Program1.pas(25) : Ошибка времени выполнения: Индекс находился вне границ массива.). А так все работает,спасибо огромное 0

@LKe_ 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 8
	03.11.2020, 18:31 [ТС]	6
	Я не ту строчку изначально скопировал и отправил сюда. Верно, там не j,а i. Я удалил строчку "for i := 1 to n do. " Если не убрать ее, то программа выдает ошибку: Program1.pas(25) : Ошибка времени выполнения: Индекс находился вне границ массива. Миниатюры 0

@LKe_ 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 8
	03.11.2020, 18:42 [ТС]	7
	Я пень в этом деле, поэтому спорить как правильно не хочу и не имею права. Я просто сделал так, чтобы программа пошла. Верно это или нет - не знаю 0

	03.11.2020, 21:24

Для каждого столбца заданной матрицы найти и напечатать номера строк, содержащих отрицательные элементы

Решение