В матрице заменить максимальный элемент каждого столбца на противоположный

@Napster · Регистрация: 16.12.2008

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

Матрица 6*7 заполняется случайным образом.
1.В матрице заменить максимальный элемент каждого столбца на противоположный. (только один, если из несколько)
2.Вставить после всех строк, содержащих максимальный элемент матрицы, строку из нулей.
3.Удалить все столбцы, в которых есть элемент больше заданного числа А.

@Inadequate · 07.02.2010, 10:58

Napster, ну а что из этого Вы сделали самостоятельно? Или это очередная халява?

@Puporev · 07.02.2010, 11:10

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

заменить максимальный элемент каждого столбца на противоположный.

Противоположный в каком смысле?

@Inadequate · 07.02.2010, 11:22

Puporev, ну т.е. скорее всего имелось ввиду 5 заменить на -5.

@Napster · 07.02.2010, 12:06 **[ТС]**

1 сделал.
2 работает криво, не могу понять почему.
в 3 все написано, но препод сказал, что неправильно.
хотя еще ни одного теста не провалила прога

@Puporev · 07.02.2010, 12:44

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

2 работает криво, не могу понять почему.
в 3 все написано, но препод сказал, что неправильно.

Я посмотрел Ваши программы, спасибо.

@Napster · 08.02.2010, 19:30 **[ТС]**

Pascal

 program z2_1;
uses crt;
const
n1=6; a=-10;
m1=7; b=10;
var
a2:array[1..n1*2,1..m1] of integer;
max,m,n,i,j,l,p:integer;
begin
clrscr;
n:=n1;
m:=m1;
randomize;
  for i:=1 to n do
    for j:=1 to m do
         a2[i,j]:=a+random(b-a+1);
 writeln('isxodnii massiv: ');
     for i:=1 to n do begin
         for j:=1 to m do
          write(a2[i,j]:4);
          writeln;
                      end;
  max:=a2[1,1];
   for i:=1 to n do
     for j:=1 to m do
           if a2[i,j]>max then max:=a2[i,j];
    for i:=1 to n do begin
     for j:=1 to m do begin
     if a2[i,j]=max then begin
       for p:=n downto i+1 do
        for l:=1 to m do
         a2[p+1,l]:=a2[p,l];
       n:=n+1;
       for l:=1 to m do
        a2[i+1,l]:=0;
      break;
                         end;
                      end;
                    end;
writeln('izmenennii massiv: ');
  for i:=1 to n do begin   
   for j:=1 to m do
       write(a2[i,j]:4);
       writeln;
       end;
readln;
end.

Я понимаю, что если элемент в последней строке, то ничего не произойет..
Как нибудь это можно подогнать, чтобы в одном цикле все гналось?

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

Pascal

program z2_2;
uses crt;
const
n1=6; a=-10;
m1=7; b=10;
var
a2:array[1..n1,1..m1] of integer;
max,m,n,i,j,l,p,x:integer;
begin
clrscr;
n:=n1;
m:=m1;
randomize;
  for i:=1 to n do
    for j:=1 to m do
         a2[i,j]:=a+random(b-a+1);
 writeln('isxodnii massiv: ');
     for i:=1 to n do begin
         for j:=1 to m do
          write(a2[i,j]:4);
          writeln;
                      end;
    write('vvedite A ');
    readln(x);
      for j:=1 to m do begin
       for i:=1 to n do begin
        if a2[i,j]>x then begin
         for p:=j to m-1 do
          for l:=1 to n do
           a2[l,p]:=a2[l,p+1];
        m:=m-1;
          break;
                          end;
                         end;
                        end;
writeln('izmenennii massiv: ');
for i:=1 to n do begin
  for j:=1 to m do
    write(a2[i,j]:4);
    writeln;
                end;
readln;
end.

Вот подскажите, что тут неверно...

@Napster 43 / 11 / 3 Регистрация: 16.12.2008 Сообщений: 107
		1
	В матрице заменить максимальный элемент каждого столбца на противоположный 07.02.2010, 10:30. Показов 1832. Ответов 6 Метки нет (Все метки) Матрица 6*7 заполняется случайным образом. 1.В матрице заменить максимальный элемент каждого столбца на противоположный. (только один, если из несколько) 2.Вставить после всех строк, содержащих максимальный элемент матрицы, строку из нулей. 3.Удалить все столбцы, в которых есть элемент больше заданного числа А. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	07.02.2010, 10:58	2
	Napster, ну а что из этого Вы сделали самостоятельно? Или это очередная халява? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2010, 11:10	3
	Сообщение от Napster заменить максимальный элемент каждого столбца на противоположный. Противоположный в каком смысле? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	07.02.2010, 11:22	4
	Puporev, ну т.е. скорее всего имелось ввиду 5 заменить на -5. 0

@Napster 43 / 11 / 3 Регистрация: 16.12.2008 Сообщений: 107
	07.02.2010, 12:06 [ТС]	5
	1 сделал. 2 работает криво, не могу понять почему. в 3 все написано, но препод сказал, что неправильно. хотя еще ни одного теста не провалила прога 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2010, 12:44	6
	Сообщение от Napster 2 работает криво, не могу понять почему. в 3 все написано, но препод сказал, что неправильно. Я посмотрел Ваши программы, спасибо. 1

	08.02.2010, 19:30