двумерный массив (матрицы)

[prelest']

1)Дана матрица размера M x N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т.д
2)Дана матрица размера M x N. Найти минимальный среди максимальных элементов ее столбцов.
3)Дана матрица размера M x N. Найти количество ее столбцов, элементы которых упорядочены по убыванию.

[ByAlex]

Сообщение от prelest'

1)Дана матрица размера M x N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т.д
2)Дана матрица размера M x N. Найти минимальный среди максимальных элементов ее столбцов.
3)Дана матрица размера M x N. Найти количество ее столбцов, элементы которых упорядочены по убыванию.

Привет! Если еще нужно, то вот пока Первая работа -

var
  temp,i,j:integer;
  check:boolean;
  a:array[1..5,1..5] of integer;
begin
  writeln('Vvedite massive [5,5]:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(a[i,j]);
  check:=false;
  for i := 1 to 5 do
  begin
    if check then
    begin
      for j := 1 to (5 div 2)+1 do
      begin
        temp:=a[j,i];
        a[j,i]:=a[(5+1)-j,i];
        a[(5+1)-j,i]:=temp;
      end;
      check:=false;
    end
    else check:=true;
  end;
  writeln;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(a[i,j],' ');
    writeln;
  end;
  readln;
  readln;
end.

[ByAlex]

Вторая -

var
  max,i,j, minMax:integer;
  arr:array[1..5,1..5] of integer;
  arrMax:array[1..5] of integer;
begin
  writeln('Vvedite massive [5,5]:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(arr[i,j]);

  max:=0;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      if arr[j,i]>max then
        max:=arr[j,i];
    end;
    arrMax[i]:=max;
    max:=0;
  end;

  minMax:=arrMax[1];
  for i := 1 to 5 do
  begin
    if arrMax[i]<minMax then
      minMax:=arrMax[i];
  end;

  writeln;
  write('Minimalniy element sredi maximalnyh = ',minMax);
  readln;
  readln;

[prelest']

а почему все до 5?

[(zom!k]

Сообщение от prelest'

1)Дана матрица размера M x N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т.д
2)Дана матрица размера M x N. Найти минимальный среди максимальных элементов ее столбцов.
3)Дана матрица размера M x N. Найти количество ее столбцов, элементы которых упорядочены по убыванию.

В первом используеш конструкцию:

for i:=1 to N do
  for j:=M downto 1 do write (mas[j,i],'  ');

где N-столбцы, M-строки, хотя неважно..

во втором:

max:=mas[1,1]; min:=max;
for i:=1 to N do begin
  for j:=1 to M do if mas[j,i]>max then max:=mas[j,i];
  if max<min then min:=max;
end;

в третьем:

count:=0;
for i:=1 to N do begin
  flag:=true;
  for j:=1 to M-1 do 
    if mas[j,i]<mas[j+1,i] then begin
                                  flag:=false;
                                  break;
                                end;
  if flag then inc(count);
end;

вроде так - не проверял

[prelest']

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

[ByAlex]

Сообщение от prelest'

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

Пиши в асю, если еще надо, все сделаем! 646455354