двумерные массивы

[Марго.]

Помогите пожалуйста!!!
Дан двумерный массив размером n*m, заполненный случайным образом.
1. Заменить минимальный по модулю элемент каждого столбца нулем
2. Вставить после каждой строки, содержащей минимальное значение строку из нулей.
3. Поменять местами первый и последний столбцы.

[Alexar Makken]

Держи. По 3-й (меняет катый и эльтый столбцы)

const
     n=3;
     m=4;
var
     a:array[1..100,1..100] of integer;
     i,j,k,l,ibuf,jbuf,Sam:integer;
begin
   writeln;
{Формирование массива с помощью генератора случайных величин}
   for i:=1 to n do
     for j:=1 to m do
     a[i, j] := random(20)+10;
{Вывод исходного массива}
   writeln('Исходный массив');
   for i := 1 to n do
   begin
      for j := 1 to m do
      write(a[i, j], '|' );
      writeln;
   end;
   write('Введите номер К-того столбца ');
   readln(k);
   write('Введите номер L-того столбца ');
   readln(l);
{Проверка на корректность введенных значений K и L }
   if (k>m) or (k<0) or (l>m) or (l<0) then
   begin
        writeln('Неверные данные...');
        writeln('Завершение работы...');
        readln;
        exit;
   end;
{K-тый и L-тый столбец меняются местами}
   for i := 1 to n do
   begin
      Sam:=a[i,k];
      a[i,k]:=a[i,l];
      a[i,l]:=sam;
   end;
{Вывод массива}
   writeln;
   writeln('Конечный массив');
   for i := 1 to n do
   begin
      for j := 1 to m do
      write(a[i, j], '|' );
      writeln;
   end;
end.

[Марго.]

спасибо тебе огромное)

Извини, за вопрос такой))...но вот это че за ф-ии?:ibuf,jbuf,Sam?

[Stilet]

Марго.

Можно увидеть твои попытки?

[Марго.]

я меняла местами первый и последний но он выдает ошибку, сейчас закину

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    m,n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы матрицы:');
for i:=1 to m do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
   write(a[i,j]:5:2);
   writeln;
 end;
for j:=1 to n div 2 do
for i:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
writeln('Перестановка:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.

[Alexar Makken]

С другой программы шапка осталась... ibuf,jbuf можешь убрать...

[Марго.]

я так и подумала, что это не нужно, но думала лучше спросить, спасибо тебе)