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

@ganger · Регистрация: 29.05.2011

Author24 — интернет-сервис помощи студентам

Поменять местами два средних столбца, если кол-во столбцов четное, и первый со средним стобцом, если кол-во столбцов нечетное...
ужс, я тока начал заниматься паскалем, а тут многовато писать...буду очень благодарен тем, кто поможет с этим не легким заданием..

@KaiTheCat · 30.05.2011, 00:46

Pascal

VAR
  a: array[1..100,1..100] of integer;
  i,j,n,m,x1,x2: byte;
  r: integer;
BEGIN
  Randomize;
  Write('количество строк: ');
  ReadLn(n);
  Write('количество столбцов: ');
  ReadLn(m);
  For i:=1 to n do
    Begin
      For j:=1 to m do
        Begin
          a[i,j]:=Random(101)-50;
          Write(a[i,j]:4);
        End;
      WriteLn;
    End;
  WriteLn;
  If odd(m) then
    Begin
      x1:=1;
      x2:=m div 2 +1;
    End
  Else
    Begin
      x1:=m div 2;
      x2:=m div 2 +1;
    End;
  For i:=1 to n do
    Begin
      r:=a[i,x1];
      a[i,x1]:=a[i,x2];
      a[i,x2]:=r;
    End;
  For i:=1 to n do
    Begin
      For j:=1 to m do write(a[i,j]:4);
      WriteLn;
    End;
  ReadLn
END.

@ganger 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 17
		1
	Поменять местами два средних столбца матрицы 30.05.2011, 00:02. Показов 1319. Ответов 1 Метки нет (Все метки) Поменять местами два средних столбца, если кол-во столбцов четное, и первый со средним стобцом, если кол-во столбцов нечетное... ужс, я тока начал заниматься паскалем, а тут многовато писать...буду очень благодарен тем, кто поможет с этим не легким заданием.. 0

	30.05.2011, 00:46

Опции темы

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

Решение