Двумерный массив (Pascal)

[lemme]

Доброй ночи, помогите пожалуйста решить данную задачу:

Дана матрица B[N,M]. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно.
(Желательно, чтобы матрица выводилась автоматически с помощью команды randomize.)

Наработки:

program new;
uses crt;
const m=5; n=5;
var i,j:integer; p,k,b,b1,k1:integer;
var a:array [1..5,1..5] of integer;
begin
uses crt;
clrscr;
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
for i:=1 to m do begin
k:=a[i,1]; b:=a[i,1];
for j:=1 to n do begin
if k>a[i,j] then k:=a[i,j];k1:=j; end;
b>:=j;end;
if b<[i,j] then begin b:=a [i,j]; end;
p:=a[i,k];
a[i,k1]:=a[i,b1];
a[i,b1]:=p;
end;
for i:=1 to m do
for j:=1 to n do
write (a[i,j]);
end.

Спасибо.
UPD: Простите, что запостил очередной вопрос "по матрицам", но именно эта программа у меня не получается..

[Niro]

и поменять их местами с первым и последним элементом строки соответственно.

не очень понял, вот например дана такая строка в массиве

1 2 3 4 5

какой она должна стать, в результате выполнения программы?

-------------
Ну смотрите, не отвечаете, значит держите, как понял задание

for i:=1 to 5 do
  begin
    min:= a[i,j];
    max:= a[i,j];
    for j:=1 to 5 do
      begin 
        if a[i,j]>max then begin max_ind:= j; max:= a[i,j]; end;
        if a[i,j]<min then begin min_ind:=j; min:= a[i,j]; end;
      end;
      {ставим минимальный элемент строки, на первую позицию в строке, 
        а первый элемент, на место минимального}
      temp:= a[i,min_ind]
      a[i,min_ind]:= min
      a[i,1]:= temp;
      {ставим максимальный элемент строки, на последнюю позицию в строке, 
        а последний элемент, на место максимального}
      temp:= a[i,max_ind];
      a[i,max_ind]:= max;
      a[i,5]:= temp; 
  end;

Упс, была ошибка, исправил

А вот заполнение массива с помощью random, сделайте сами, на форуме КУЧА примеров с этим

[lemme]

Большое спасибо!

[Firstchar]

program abc;
uses crt;
var mas:array[1..100,1..100] of integer;
k,k1,i,j,n,m,min,max:integer;
procedure mas_output;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(mas[i,j]:3);
end;
end;
begin
clrscr;
randomize;
write('введите количество строк: ');
readln(n);
write('введите количество столбцов: ');
readln(m);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(20)-5;
mas_output;
for i:=1 to n do
begin
min:=mas[i,1];
max:=mas[i,1];
for j:=1 to m do
begin
if min>mas[i,j] then
begin 
min:=mas[i,j];
k:=j;
end;
if max<mas[i.j] then 
begin
max:=mas[i,j];
k1:=j;
end;
end;
mas[i,k]:=mas[i,m];
mas[i,k1]:=mas[i,1];
mas[i,m]:=min;
mas[i,1]:=max;
end;
mas_output;
readkey;
end.

вроде как-то так

[lemme]

mas[i,j]:=random(20)-5;

вот тут выдаёт 215 (Арифмитическое перевыполнение)

[Serge_Bliznykov]

Сообщение от lemme

mas[i,j]:=random(20)-5;

вот тут выдаёт 215 (Арифмитическое перевыполнение)

бывает такое у TurboPascal - он тип данных определяет по первому элементу выражения и иногда "тупит" при этом

попробуйте записать эту строчку так:

      mas[i, j] := -5 + random(20);