Ещё одна задача... но на двухмерный массив (матрицу), Наведите меня на логику и понимания задачи:) Опции

[Димас]

Здача 1077 б

Дан двухмерный массив. Превратить:
б.) первый столбец на место последнего, при этом вторую,тертью... последний столбцы сместить влево.


Лично я ничего не понял из написаного выше... обясните пожалуйста логику задачи:-)

эх..... как всё у меня запущено и трудно

[Димас]

тренировался на рекорд(записи)
на такой задачке:

Задача 1194

Известы данный о 20 сотруниках фирмы(фамилия, зарплата и пол).
определить:
а)фамилию мужчины,имебщего самую большую зарплату(считать что такой есть и он едниственый)
б)фамилию мужчины и женщины, имеющих самую маленькую зарплату(счиать что такие есть и они единственые в свой групе сотрудников)

Исходный код:

program z1194;
   uses crt;
{-----------------------------------------------------}
  const kol_sotrudnik = 4; { количество сотрудников}
{-----------------------------------------------------}
   type
       danin_sotrudnik = record
             fam   :  string;
             zarpl :  integer;
             pol   :  string;
   end;
{----------------------------------------------------------------}
var
       mass_sotrudnik: Array[1..kol_sotrudnik] of danin_sotrudnik;
      i,max_zarpl,min_zarpl,max_i,min_i,max_vse,max_ivse,max_zarplvse:integer;
{----------------------------------------------------------------}
begin
      ClrScr;
      {---ввод и вывод максимального значения у мужиков---}
      max_zarpl:=0;

      for i:=1 to kol_sotrudnik do
      begin
           write('Фамилия  N ',i,' ');
           readln(mass_sotrudnik[i].fam);

           write('Зарплата N ',i,' ');
           readln(mass_sotrudnik[i].zarpl);

           write('Пол m/j N ',i,' ');
           readln(mass_sotrudnik[i].pol);

           writeln('--------------------');

      if (max_zarpl<mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m') then
      begin
           max_zarpl:=mass_sotrudnik[i].zarpl ;
           max_i:=i;
      end;

      end;
      writeln('самая большая зарплата мужцины в ',mass_sotrudnik[max_i].fam);
     {---***********-}

      max_zarpl:=0;

      for i:=1 to kol_sotrudnik do
      begin
          if (max_zarplvse<mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m')
      and (mass_sotrudnik[i].pol='j')
      then
      begin
           max_zarplvse:=mass_sotrudnik[i].zarpl ;
           max_ivse:=i;
      end;

      end;

      {--*************---}

      min_zarpl:=mass_sotrudnik[max_ivse].zarpl;
      for i:=1 to kol_sotrudnik do
      begin

      if (min_zarpl>mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m') then
      begin
           min_zarpl:=mass_sotrudnik[i].zarpl ;
           min_i:=i;
      end;

      end;
      writeln('самая минимальная зарплата у мужчин в ',mass_sotrudnik[min_i].fam);

      {---------------------------------------}
      min_zarpl:=mass_sotrudnik[max_ivse].zarpl;
      for i:=1 to kol_sotrudnik do
      begin

      if (min_zarpl>mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='j') then
      begin
           min_zarpl:=mass_sotrudnik[i].zarpl ;
           min_i:=i;
      end;

      end;
      writeln('самая минимальная зарплата у женщин в ',mass_sotrudnik[min_i].fam);


      writeln;
      write('End');
      readln;
end.

Проверте пожалуйста всё ли правильно я написал??????

// const kol_sotrudnik = 4 - узял не 20 как сказано в задаче а 4 шоб меньше вводить

офф... спкокойной ночи