Заменить максимальный по модулю элемент каждой строки на противоположный по знаку

[bestlover]

Задан двумерный массив nxm
1) Заменить максимальный по модулю элемент каждой строки на противоположный по знаку
2) Вставить после каждой четной строки первую строку
3) Удалить все строки содержащие ноль
4) Поменять местами средний столбцы

[Sazary]

Где ваши наработки? Что конкретно непонятно?
Пока что я вижу только условие задачи.

[bestlover]

В том и дело что я не знаю как...

[bestlover]

по крайней мере дальше не знаю, вот код
program Er_1;
const n=4; m=6;
type dmyarray=array[1..n,1..m] of integer;
var a myarray;
procedure init(var xmyarray);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
x[i,j]:=-25+random(51);
end;
procedure print(xmyarray);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:5);
writeln;
end;
end;
procedure maximum(xmyarray;var max,maxi,maxj:integer);
var i,j:integer;
begin
max:=x[1,1];
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to m do
if x[i,j]>max then
begin
max :=x[i,j];
maxi:=i;
maxj:=j;
end;
не знаю как дальше делать....=(

[Sazary]

В том и дело что я не знаю как...

Что как? "Как это записать на паскале"? (как тут некоторые говорят).
Раз есть задания, то и материал вам давали.

1. В цикле идете по строкам.
Для каждой строки идете по столбцам (по элементам) и ищете максимум по модулю. Запоминаете его индекс. После этого меняете его знак.

2. Чтобы вставить строку, нужно сдвинуть все остальные вниз. Это делается в цикле по строкам начиная с (M+1)-й строки (M - количество строк). Поэлементно копируете строку M в строку M+1. И так пока не доберетесь до места, куда нужно вставить строку.

3. Как я понимаю, в данном случае под удалением подразумевается простой сдвиг вверх всех строк ниже удаляемой. Ну вот. Просто сдвигаете, начиная с номера удаляемой строки.

4.

Поменять местами средний столбцы

Средний столбцы? Может, средние? Тогда это будет работать только если количество столбцов четно. Поэлементно обмениваете. И все.

----------
В задачках нет ничего сложного. И если вы не поленитесь прочитать нужный материал (на это уйдет 1-2 часа. А при том, что вам уже давали нужный материал, еще меньше), то сможете сами их быстро решить.

==================

по крайней мере дальше не знаю, вот код

Код заключайте в тег CODE ("#" на панели в окне редактирования). Так его намного удобнее будет читать.
К какой это задаче?
Собственно, поместите его в CODE. Как видите, там куча смайлов вместо того, что нужно.

[Sazary]

procedure maximum(x:dmyarray;var max,maxi,maxj:integer);

Зачем столько ненужных переменных, да еще и передавать в аргументах?
Понадобится только одна.

program Er_1;
uses crt;
const n=4; m=6;
type dmyarray=array[1..n,1..m] of integer;

var a : dmyarray;

procedure init(var x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  x[i,j]:=-25+random(51);
end;

procedure print(x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to m do
  write(x[i,j]:5);
 writeln;
 end;
writeln;
end;

procedure maximum(var x : dmyarray);
var i,j:integer;
maxj : integer;
begin
for i:=1 to n do
 begin
 maxj := 1;
 for j:=2 to m do
  if abs(x[i,j])>abs(x[i,maxj]) then
   maxj := j;
  x[i,maxj] := -x[i,maxj];
 end;
end;


begin
randomize;
init(a);
print(a);
maximum(a);
print(a);
readln;
end.

[bestlover]

Раз есть задания, то и материал вам давали.

неа! не давали! Вот именно что на паскале то и не получается ! а алгоритм я знаю как делать!

[bestlover]

Если бы я мог сам сделать, я бы не обращался за помощью.... Для вас может быть и просто) я примеры смотрел и материал читал) но там легкие примеры , я не знаю как на паскале реализовать!