Найти сумму элементов матрицы, находящихся на нечетных позициях i-й строки

@Novikov · Регистрация: 11.03.2015

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

Я в программировании вообще никакой..Но есть большое желание научиться

С нуля учиться довольно таки сложно..
Но мне дали задание : решить определенную задачу с двумерными и одномерными массивами.
Немного полазил у вас по форуму,нашел уйму полезной информации как создавать массивы,как работать с ними.
Но нужна помощь в определенной части условия,а именно:
Есть матрица,с матрицы нужно найти один элемент - x[i].
Само условие звучит так:
_
За x[i] принять самый большой элемент i-го столбика, если он содержит хотя бы один отрицательный элемент, иначе - сумму элементов, находящихся на нечетных позициях i-й строки и превышают заданное число L.
-

Я так понял нужно найти максимальный элемент матрицы (могу сделать),и определить есть ли в столбике с этим элементом отрицательное число?Если есть то берем это число за x[i].
А вот "иначе" я не могу понять..
Как бы нужно ввести L,а затем найти "сумму элементов, находящихся на нечетных позициях i-й строки" и сравнить их,но само понятие "на нечетных позициях і-й строки" это как вообще?

Если кто-то сможет помочь,буду очень признателен..

@Puporev · 11.03.2015, 20:02

Х это одномерный массив размером равный размеру матрицы, если она квадратная. Каждый элемент массива x[i] это
или самый большой элемент i-го столбика если в столбце есть хотя бы один отрицательный элемент,
или сумму элементов, находящихся на нечетных позициях i-й строки и превышают заданное число L.
если матрица не квадратная, то в первом случае размер массива=количеству столбцов, во втором случае количеству строк.

@Novikov · 11.03.2015, 20:26 **[ТС]**

А как это сделать?
Можете как-то по шагам описать?
Так как я мало что понимаю..
Максимальный элемент матрицы смогу найти,а вот каждого столбика,вряд ли

@Puporev · 11.03.2015, 22:00

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    x:array[1..nmax] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do{перебираем все столбцы}
 begin
  k:=0;{пока нет отрицательных}
  j:=1; {идем по столбцу}
  while(j<=n)and(k=0) do
  if a[j,i]<0 then k:=1{есть отрицательный}
  else j:=j+1;
  if k=1 then
   begin
    x[i]:=a[1,i];{находим максимальный в столбце}
    for j:=2 to n do
    if a[j,i]>x[i] then x[i]:=a[j,i];
   end
  else {нет отрицательного}
   begin
    x[i]:=0;{находим сумму элементов в строке i, стоящих на нечетных местах}
    for j:=1 to n do
    if odd(j) then x[i]:=x[i]+a[i,j];
   end;
 end;
writeln('Массив X');
for i:=1 to n do
write(x[i]:4);
readln
end.

@Novikov · 11.03.2015, 22:32 **[ТС]**

Спасибо)Тут разобрался)

А дальше нужно ввести число L,и суммировать элементы каждой строки через один?
это будет выглядеть как-то так?

Pascal

for i:=1 to m do
begin
q:=0;
 for j:=1 to n do
q:=q+a[i,j+1];
if q>l then
begin
x[i]:=q;
Write(x[i],'  ');
end;
end;

Или я неправильно понял?(

Добавлено через 8 минут
Или это и есть второй случай?

Pascal

1
2
3

x[i]:=0;{находим сумму элементов в строке i, стоящих на нечетных местах}
    for j:=1 to n do
    if odd(j) then x[i]:=x[i]+a[i,j];

@Puporev · 12.03.2015, 06:25

Забыл про L.

Pascal

write('Введите число L=');
readln(L);
for i:=1 to n do{перебираем все столбцы}
 begin
  k:=0;{пока нет отрицательных}
  j:=1; {идем по столбцу}
  while(j<=n)and(k=0) do
  if a[j,i]<0 then k:=1{есть отрицательный}
  else j:=j+1;
  if k=1 then
   begin
    x[i]:=a[1,i];{находим максимальный в столбце}
    for j:=2 to n do
    if a[j,i]>x[i] then x[i]:=a[j,i];
   end
  else {нет отрицательного}
   begin
    x[i]:=0;{находим сумму элементов в строке i, стоящих на нечетных местах}
    for j:=1 to n do
    if odd(j)and(a[i,j]>L) then x[i]:=x[i]+a[i,j];
   end;
 end;

@Novikov · 12.03.2015, 08:44 **[ТС]**

Вроде бы понятно)Спасибо)

Но что такое "odd" ?

@Puporev · 12.03.2015, 08:48

odd(j) значит j нечетное.

Добавлено через 45 секунд
то же что и if j mod 2<>0

@Novikov · 12.03.2015, 17:15 **[ТС]**

То есть вся программа будет выглядеть так?

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    x:array[1..nmax] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Введите число L=');
readln(L);
for i:=1 to n do{перебираем все столбцы}
 begin
  k:=0;{пока нет отрицательных}
  j:=1; {идем по столбцу}
  while(j<=n)and(k=0) do
  if a[j,i]<0 then k:=1{есть отрицательный}
  else j:=j+1;
  if k=1 then
   begin
    x[i]:=a[1,i];{находим максимальный в столбце}
    for j:=2 to n do
    if a[j,i]>x[i] then x[i]:=a[j,i];
   end
  else {нет отрицательного}
   begin
    x[i]:=0;{находим сумму элементов в строке i, стоящих на нечетных местах}
    for j:=1 to n do
    if odd(j)and(a[i,j]>L) then x[i]:=x[i]+a[i,j];
   end;
 end;

@Puporev · 12.03.2015, 17:23

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

вся программа будет выглядеть так

Конечно нет, тут элементарно нет конца.

Добавлено через 4 минуты

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    x:array[1..nmax] of integer;
    n,i,j,k,L:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Введите число L=');
readln(L);
for i:=1 to n do{перебираем все столбцы}
 begin
  k:=0;{пока нет отрицательных}
  j:=1; {идем по столбцу}
  while(j<=n)and(k=0) do
  if a[j,i]<0 then k:=1{есть отрицательный}
  else j:=j+1;
  if k=1 then
   begin
    x[i]:=a[1,i];{находим максимальный в столбце}
    for j:=2 to n do
    if a[j,i]>x[i] then x[i]:=a[j,i];
   end
  else {нет отрицательного}
   begin
    x[i]:=0;{находим сумму элементов в строке i, стоящих на нечетных местах}
    for j:=1 to n do
    if odd(j)and(a[i,j]>L) then x[i]:=x[i]+a[i,j];
   end;
 end;
writeln('Массив X');
for i:=1 to n do
write(x[i]:4);
readln
end.

@Novikov · 12.03.2015, 19:44 **[ТС]**

А если вводить элементы с клавиатуры например в матрице 3х3,
при элеменах 1,2,3,4,5,6,7,8,9
вектор Х будет : 0,10,16
на первом месте должно ведь быть 4?

@Puporev · 12.03.2015, 19:48

Матрица
1 2 3
4 5 6
7 8 9
В столбцах отрицательных нет, значит считаем сумму в строках
1+2+3=6
4+5+6=15
7+8+9=24

@Novikov · 12.03.2015, 20:29 **[ТС]**

А программа выводит 0,10,16

@Puporev · 12.03.2015, 20:48

Я уже забыл условие, нужно сумму в строках элементов на нечетных местах и больших L
В такой матрице при L=0 будет
4 10 16

Добавлено через 2 минуты
А при L=3 будет как раз
0,10,16

@Novikov · 12.03.2015, 20:54 **[ТС]**

Ех,спасибо)
Извините что надоедаю,просто очень хочу разобраться)
Спасибо еще раз

@Novikov 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 11 Записей в блоге: 1
	12.03.2015, 20:29 [ТС]	13
	А программа выводит 0,10,16 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.03.2015, 20:48	14
	Я уже забыл условие, нужно сумму в строках элементов на нечетных местах и больших L В такой матрице при L=0 будет 4 10 16 Добавлено через 2 минуты А при L=3 будет как раз 0,10,16 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.03.2015, 20:02	2
	Х это одномерный массив размером равный размеру матрицы, если она квадратная. Каждый элемент массива x[i] это или самый большой элемент i-го столбика если в столбце есть хотя бы один отрицательный элемент, или сумму элементов, находящихся на нечетных позициях i-й строки и превышают заданное число L. если матрица не квадратная, то в первом случае размер массива=количеству столбцов, во втором случае количеству строк. 1

@Novikov 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 11 Записей в блоге: 1
	11.03.2015, 20:26 [ТС]	3
	А как это сделать? Можете как-то по шагам описать? Так как я мало что понимаю.. Максимальный элемент матрицы смогу найти,а вот каждого столбика,вряд ли 0

@Novikov 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 11 Записей в блоге: 1
	12.03.2015, 08:44 [ТС]	7
	Вроде бы понятно)Спасибо) Но что такое "odd" ? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.03.2015, 08:48	8
	odd(j) значит j нечетное. Добавлено через 45 секунд то же что и if j mod 2<>0 0

@Novikov 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 11 Записей в блоге: 1
	12.03.2015, 19:44 [ТС]	11
	А если вводить элементы с клавиатуры например в матрице 3х3, при элеменах 1,2,3,4,5,6,7,8,9 вектор Х будет : 0,10,16 на первом месте должно ведь быть 4? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.03.2015, 19:48	12
	Матрица 1 2 3 4 5 6 7 8 9 В столбцах отрицательных нет, значит считаем сумму в строках 1+2+3=6 4+5+6=15 7+8+9=24 0

@Novikov 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 11 Записей в блоге: 1
	12.03.2015, 20:54 [ТС]	15
	Ех,спасибо) Извините что надоедаю,просто очень хочу разобраться) Спасибо еще раз 0