Znaleźć liczbę elementów różnych od zera w każdej kolumnie i w całej tablicy.

  ilość := 0;
  for i := 1 to K do
    for j := 1 to L do
    begin
       if T [ i, j ] <> 0 then
         ilość := ilość + 1;
    end;
  writeln('Ilość elementów różnych od zera w tablicy wynosi ', ilość );

Znaleźć liczbę elementów równych zeru w każdym wierszu i w całej tablicy.

ilość := 0;
 for i := 1 to K do
  for j := 1 to L do
   begin
    if T [ i, j ] = 0 then
      ilość := ilość + 1;
   end;
 writeln('Ilość elementów równych zeru w tablicy wynosi ', ilość );

Znaleźć największy element w każdej parzystej kolumnie.

  i := 2;
  while i <= K do
  begin
     max := T [i,1];
     for j := 2 to L do
       if T [ i, j ] > max then
         max := T [ i, j ];
     writeln('Największy element w kolumnie: ',i, ' wynosi: ',max);
     i := i + 2;
  end;

Znaleźć sumę elementów w każdym nieparzystym wierszu.

i := 1;
  while i <= K do
  begin
     suma := 0;
     for j := 1 to L do
       suma := suma + T [ i, j ];
     writeln('Suma elementów w kolumnie ',i, ' wynosi: ',suma);
     i := i + 2;
  end;

W miejsce pierwszego elementu w każdym wierszu wpisać sumę elementów tego wiersza.

for i:= 1 to K do
  begin
    suma := 0;
    for j:= 1 to L do
       suma := suma + T [ i, j ];
     T [ i, 1 ] := suma;
  end;
  writeln('Sumy zostały zapisane');

Do tablicy wpisać liczby odpowiadające numerowi wiersza, jeśli wcześniej znajdowała się tam liczba różna od zera.

  for i := 1 to K do
    for j := 1 to L do
      if T [ i, j ] <> 0 then
         T [ i, j ] := i;
  writeln('Zadanie zostało wykonane');

Do każdego wiersza tablicy w kolumnach o numerach mniejszych lub równych numerowi tego wiersza wpisać liczby równe numerowi wiersza, w pozostałych kolumnach wpisać zero.

  repeat
    write('Podaj numer kolumny: ');
    readln( numer );
  until numer <= K;

  for i:= 1 to numer do
    for j:= 1 to L do
       T [ i, j ] := numer ;

  if numer < K then
    for i := numer + 1 to K do
      for j := 1 to L do
         T [ i, j ] := 0 ;

Zamienić miejscami wartości komórek tablicy z sąsiednich kolumn (1 z 2, 3 z 4 itd.). Jeśli liczba kolumn tablicy jest nieparzysta, ostatnią kolumnę pozostawić bez zmian.

if K mod 2 = 0 then
    do_ilu := K
  else
     do_ilu := K - 1;
  i := 1;
  while i <= do_ilu - 1 do
  begin
    for j := 1 to L do
    begin
      temp := T [ i, j ];
      T [ i, j ]  := T [ i + 1, j ];
      T [ i + 1, j ] := temp;
    end;
    i := i + 2;
  end;
 

Zamienić miejscami wartości komórek tablicy z sąsiednich wierszy (1 z 2, 3 z 4 itd.). Jeśli liczba wierszy tablicy jest nieparzysta, ostatni wiersz pozostawić bez zmian.

  if L mod 2 = 0 then
    do_ilu := L
  else
     do_ilu := L - 1;

  j := 1;
  while j <= do_ilu - 1 do
  begin
    for i := 1 to K do
    begin
      temp := T [ i, j ];
      T [ i, j ] := T [ i , j + 1 ];
      T [ i, j + 1 ] := temp;
    end;
    j := j + 2;
  end;

W każdym wierszu tablicy w pierwszej kolumnie wpisać liczbę występowania wartości ujemnych w danym wierszu.

for j := 1 to L do
  begin
    ile := 0;
    for i := 1 to K do
      if T [ i,j ] < 0 then
         ile := ile + 1;
    T [ 1, j ] := ile;
  end;
  writeln('Zadanie zostało wykonane');
  klawisz;
end;

W każdej kolumnie tablicy w pierwszym wierszu wpisać liczbę wartości w danej kolumnie większych od pierwszego elementu kolumny.

  for i := 1 to K do
  begin
    ile := 0;
    for j := 1 to L do
      if T [ i ,j ] < 0 then
         ile := ile + 1;
    T [ i, 1 ] := ile;
  end;
  writeln('Zadanie zostało wykonane');

Zmienić tablicę tak, aby w każdym wierszu elementy były zapisane od końca do początku.

  for j := 1 to L do
  begin
    x := 1;
    y := K;
    while x < y do
    begin
      temp := T [ x, j ];
      T [ x, j ] := T [ y, j ];
      T [ y, j ] := temp;
      x := x + 1;
      y := y - 1;
    end;

---