матрица

@Серега · Регистрация: 16.06.2009

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

1.В каждой строке матрицы найти сумму max и min.

2.Получить новую матрицу, где больше на одну строку. Элементы новой строки это произведение отрицательных, если оно больше нуля.

Добавлено через 42 минуты 53 секунды
Как первую делать я понял. А вот вторую....

Добавлено через 3 минуты 6 секунд
ПЕРВУЮ СДЕЛАЛ.

ОСТАЛАСЬ ВТОРАЯ...

@John_Pa9JIbHuK · 19.06.2009, 19:59

ну был масив

Pascal

1
2
3

1  2 -3
4 -5  6
-2  5 -1

а вот новый массив

Pascal

@Евгения Игоревна · 19.06.2009, 20:02

Здравствуй, Сергей.
У меня вот такой вопрос возник, относительно задания.
Элементы новой строки это произведение отрицательных, если оно больше нуля.
Это как? Т.е. все положительные элементы СТОЛБЦА сначала делаем отрицательными, а потом их перемножаем? Или как-то подругому?
И еще вот какой вопрос, а Вам с процедурами программа нужна или можно просто общим текстом?

@ActiveSync · 19.06.2009, 20:05

2.Получить новую матрицу, где больше на одну строку. Элементы новой строки это произведение отрицательных, если оно больше нуля.

Как произведение разделить на все элементы новой строки? Произведение чего? Если произведение меньше 0, что тогда?

@Серега · 19.06.2009, 20:09 **[ТС]**

Евгения Игоревна -все положительные элементы СТОЛБЦА сначала делаем отрицательными, а потом их перемножаем?
Похоже так... Понимеешь у препода дипломники были, она начирикала и прогнала, а мне теперь в ее писанине разбираться... А рогу НУЖНО общим текстом.

@Евгения Игоревна · 19.06.2009, 20:52

к примеру дана матрица
-1 3 -8
2 -6 -7
-1 5 -9
в итоге должны получить
-1 3 -8
2 -6 -7
-1 5 -9
-2 15 1
если так, то минуточек через 10 напишу сам код

Добавлено через 33 минуты 46 секунд

Pascal

const  n=5;
          r=4;
type  mas=array[1..n+1,1..r] of integer;
var m:mas; i,j,k:integer;
begin
randomize;
for i := 1 to n do
  begin
    for j := 1 to r do
      begin
        m[i,j]:=random(20)-10;
        write(m[i,j],' ');
      end;
    writeln;
  end;
k:=1;
for j := 1 to r do
  begin
    for i := 1 to n do
      if m[i,j]>0 then k:=k*(-m[i,j]);
    m[n+1,j]:=k;
    k:=1;
  end;
for i := 1 to n+1 do
  begin
    for j := 1 to r do
      write(m[i,j],' ');
    writeln;
  end;
readln
end.

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

Pascal

for j := 1 to r do
  begin
    for i := 1 to n do
      if m[i,j]>0 then k:=k*(-m[i,j]);
    m[n+1,j]:=k;
    k:=1;
  end;

@Серега · 19.06.2009, 22:20 **[ТС]**

Спасибо !!!

@Евгения Игоревна · 19.06.2009, 23:21

пожалуйста, обращайся если что))

@Серега 0 / 0 / 0 Регистрация: 16.06.2009 Сообщений: 9
		1
	матрица 19.06.2009, 19:55. Показов 544. Ответов 7 Метки нет (Все метки) 1.В каждой строке матрицы найти сумму max и min. 2.Получить новую матрицу, где больше на одну строку. Элементы новой строки это произведение отрицательных, если оно больше нуля. Добавлено через 42 минуты 53 секунды Как первую делать я понял. А вот вторую.... Добавлено через 3 минуты 6 секунд ПЕРВУЮ СДЕЛАЛ. ОСТАЛАСЬ ВТОРАЯ... 0

@Евгения Игоревна 2 / 2 / 0 Регистрация: 19.06.2009 Сообщений: 7
	19.06.2009, 20:02	3
	Здравствуй, Сергей. У меня вот такой вопрос возник, относительно задания. Элементы новой строки это произведение отрицательных, если оно больше нуля. Это как? Т.е. все положительные элементы СТОЛБЦА сначала делаем отрицательными, а потом их перемножаем? Или как-то подругому? И еще вот какой вопрос, а Вам с процедурами программа нужна или можно просто общим текстом? 0

@ActiveSync 14 / 14 / 10 Регистрация: 17.06.2009 Сообщений: 40
	19.06.2009, 20:05	4
	2.Получить новую матрицу, где больше на одну строку. Элементы новой строки это произведение отрицательных, если оно больше нуля. Как произведение разделить на все элементы новой строки? Произведение чего? Если произведение меньше 0, что тогда? 0

@Серега 0 / 0 / 0 Регистрация: 16.06.2009 Сообщений: 9
	19.06.2009, 20:09 [ТС]	5
	Евгения Игоревна -все положительные элементы СТОЛБЦА сначала делаем отрицательными, а потом их перемножаем? Похоже так... Понимеешь у препода дипломники были, она начирикала и прогнала, а мне теперь в ее писанине разбираться... А рогу НУЖНО общим текстом. 0

@Серега 0 / 0 / 0 Регистрация: 16.06.2009 Сообщений: 9
	19.06.2009, 22:20 [ТС]	7
	Спасибо !!! 0

@Евгения Игоревна 2 / 2 / 0 Регистрация: 19.06.2009 Сообщений: 7
	19.06.2009, 23:21	8
	пожалуйста, обращайся если что)) 0