Взаимно поменять местами нечетные и четные столбцы: 1-й с 2-м, 3 и 4 и тд. Определить максимальный элемент последней строки

[NedoProgrammer]

Ввести двумерный массив 5х7. Взаимно поменять местами нечетные и четные столбцы: 1-й с 2-м, 3 и 4 и тд. Определить максимальный элемент последней строки (значение и координаты).

Я только начал изучать ПАСКАЛЬ АБС. Ещё не могу такое решить, а решить нужно.Помогите

[Smitt&Wesson]

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

Я только начал изучать ПАСКАЛЬ АБС. Ещё не могу такое решить, а решить нужно.Помогите

У меня, аж слёзы на глазах. Так перед глазами и встают цыгане. Памажите, мы ведь с вами на вокзалах, там и тут.

[NedoProgrammer]

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

[min@y™]

Не смогу освоить тот материал за день

ну почему паскакаль АБЦ? Откуда вы все такие берётесь, а?

[NedoProgrammer]

Мне преподаватель дал это задание. Это на втором курсе ПАСКЛАЛЬ АБС база программирования.

[NikiToZz_]

Если заполнять массив рандомно, то такая программа.

program zadacha;
uses crt;
    var   a:array[1..5,1..7] of integer;
      i,j,koor,c,max:integer;
begin
  clrscr;
  randomize;
  for i:=1 to 5 do begin
    for j:=1 to 7 do begin
      a[i,j]:=-10+random(20);
      write(a[i,j]:4);
    end;
    writeln;
    writeln;
  end;
  max:=a[5,1];
  for i:=1 to 5 do
      for j:=1 to 6 do
          if j mod 2 <> 0 then begin
             c:=a[i,j];
             a[i,j]:=a[i,j+1];
             a[i,j+1]:=c;
          end;
  writeln;
  for i:=1 to 5 do begin
    for j:=1 to 7 do
      write(a[i,j]:4);
    writeln;
    writeln;
  end;
      for j:=2 to 7 do
          if a[5,j]>max then begin max:=a[5,j];  koor:=j;
          end;
      writeln ('Максимальный элемент = ',max,' Координаты его (если максимальных элементов было');
      write ('несколько, выводятся координаты последнего из них): i=5, j=',koor);
        readln;
end.

Если заполнять с клавиатуры, то такая:

program zadacha;
uses crt;
    var   a:array[1..5,1..7] of integer;
      i,j,koor,c,max:integer;
begin
  clrscr;
  for i:=1 to 5 do
    for j:=1 to 7 do
      read(a[i,j]);
  clrscr;
  for i:=1 to 5 do begin
    for j:=1 to 7 do
      write(a[i,j]:4);
    writeln;
    writeln;
  end;
  max:=a[5,1];
  for i:=1 to 5 do
      for j:=1 to 6 do
          if j mod 2 <> 0 then begin
             c:=a[i,j];
             a[i,j]:=a[i,j+1];
             a[i,j+1]:=c;
          end;
  writeln;
  for i:=1 to 5 do begin
    for j:=1 to 7 do
      write(a[i,j]:4);
    writeln;
    writeln;
  end;
      for j:=2 to 7 do
          if a[5,j]>max then begin max:=a[5,j];  koor:=j;
          end;
      writeln ('Максимальный элемент = ',max,' Координаты его (если максимальных элементов было');
      write ('несколько, выводятся координаты последнего из них): i=5, j=',koor);
        readln;
        readln;
end.

[NedoProgrammer]

Никита, спасибо тебе большое. Выручаешь

[NedoProgrammer]

Можешь сказать какие темы нужно знать, чтобы такую программу написать?

[Smitt&Wesson]

Сообщение от min@y™

ну почему паскакаль АБЦ? Откуда вы все такие берётесь, а?

На рельсы подбрасывают, а мы подбираем, людей из них пытаемся сделать, а они опят - на рельсы...

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

Мне преподаватель дал это задание. Это на втором курсе ПАСКЛАЛЬ АБС база программирования.

Вот-вот. Базисное программирование? Или БАЗА в ПРОГРАММЕ? Или Безалаберность препода, давшего такое без башенное задание?

[NikiToZz_]

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

Можешь сказать какие темы нужно знать, чтобы такую программу написать?

Двумерные массивы. Обмен двух переменных через третью. Алгоритм поиска максимальных элементов в массиве.

Вроде, всё..