Паскаль

[julia79]

Помогите,пожалуйста. Правильно ли у меня работает программа?
Задание: Сформировать случайным образом целочисленный двумерный массив и поменять местами две строки.

Program massiv;
uses crt;
var
n,m,i,j,min,max,mx:integer;
a:array[-100..1000,-100..1000] of integer;
begin
 Randomize;
  write('введите кол-во строк='); readln (n);
  write('введите кол-во столбцов=');  readln (m);
  write('введите от какого числа генерировать=');  readln (min);
  write('введите до какого числа генерировать=');  readln (max);
  min:=-min;
  writeln('isxodniy massiv');
      For i:=1 to n do begin
        For j:=1 to m do begin
        a[i,j]:=random(min+max+1)-min;
        write(a[i,j]:6);
        end;
      writeln;
      end;
For i:=1 to n do begin
        For j:=1 to m do begin
        mx:=a[1,j];
        a[1,j]:=a[n,j];
        a[n,j]:=mx;
        end;
        end;

        writeln('polucheniy massiv');
      For i:=1 to n do begin
        For j:=1 to m do begin
        write(a[i,j]:6);
        end;
      writeln;
      end;
end.

[Serge_Bliznykov]

нет, неправильно.

a:array[-100..1000,-100..1000] of integer;

почему индексы от -100 ?!!! это неверно. Вы в циклах везде пишете от 1
ну так и определяйте от 1
кроме того, если эта программа под Dos (а на это как бы намекает uses Crt),
тогда не получится скомпилировать такую огромную структуру.
Да и нужно ли Вам такое количество элементов массива?!
я бы предложил ограничиться сотней:

a:array[1..100,1..100] of integer;

        a[i,j]:=random(min+max+1)-min;

неверно.
нужно так:

        a[i,j]:=random(max-min+1)+min;

For i:=1 to n do begin
        For j:=1 to m do begin
        mx:=a[1,j];
        a[1,j]:=a[n,j];
        a[n,j]:=mx;
        end;
        end;

возможно, что я заблуждаюсь, но это, на мой взгляд совсем не "поменять местами две строки."

я бы предложил такой код.
Пусть нам нужно обменять местами строчку r1 (разумеется, 1 <= r1 <= n)
и строчку r2 (так же, 1 <= r2 <= n).
тогда пишем так:

for j:=1 to m do begin
  mx := a[r1, j];
  a[r1, j] := a[r2, j];
  a[r2, j] := mx
end;

всё.