Задача по массивам...Нужно создать программу в Паскале

[Кристина)]

Ввести двумерный массив размером 3*4.Поменять местами столбец с максимальным элементом и первый столбец мссива

[ZvEr_HaCkEr]

А где "пожалуйста, очень надо, хелп ми"?

[Кристина)]

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

А где "пожалуйста, очень надо, хелп ми"?

Пожаааааааааааааалуйста!Можешь помочь?

[GetMax]

Допустим максимальный элемент вы нашли, тогда поменять столбцы можно так

If jmax > 1 then
  Begin
    For i:=1 to 3 do
    Begin
      buf:=Matr[i,1];
      Matr[i,1]:=Matr[i,jmax];
      Matr[i,jmax]:=buf
    End;
    For i:=1 to 3 do
    Begin
      For j:=1 to 4 do
      Write(Matr[i,j]:3);
      Writeln
    End;
  End
  Else Writeln('Maksimum v 1 stolbce');

[Антон Лысенко]

допустим так ищется максимальный элемент :

k:=1 ;
   for i:=1 to f do
    for j:=1 to f do
     begin
      v[k]:=Matr[i,j];
      inc(k);
     end;

max:=V[1];
             for k:=2 to  4*3 do
                if max>V[k] then
                  begin
                   max:=v[k];
                   Index_max:=k;
                  end;

index_max:=(index_max mod 4)
if index_max=o then index_max:=4;

вот у вас есть индекс максимального элемента. Что-то типа того, наверное. НЕ КОМПИЛИРОВАЛ!

[Sparkman]

Сообщение от Кристина)

Ввести двумерный массив размером 3*4.Поменять местами столбец с максимальным элементом и первый столбец мссива

program wwwprogrammersforumru;
uses crt;
const n=3;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,max,mj:integer;
begin
     clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
          write('Enter A[',i,',',j,']: ');
          readln(a[i,j]);
     end;
     clrscr;
     writeln('Massiv:');
     for i:=1 to n do
     begin
          for j:=1 to m do
          write(a[i,j]:3);
          writeln;
     end;
     max:=a[1,1];
     mj:=1;
     for i:=1 to n do
     for j:=1 to m do
     if max<a[i,j] then
     begin
          max:=a[i,j];
          mj:=j;
     end;
     if mj>1 then
     for i:=1 to n do
     begin
          max:=a[i,1];
          a[i,1]:=a[i,mj];
          a[i,mj]:=max;
     end;
     writeln('Otvet:');
     for i:=1 to n do
     begin
          for j:=1 to m do
          write(a[i,j]:3);
          writeln;
     end;
     readln;
end.

ПС: без первой строчки алгоритм не будет работать!
ПСС: шутка

[Кристина)]

Спасибо большое=)

[Веселина]

Sparkman, ответ какой-то не такой получается.....