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

[anutka]

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

1.Поменять местами минимальный и максимальный элементы матрицы.
И ввести значение матрицы самому,и сохранить все полученные значения в файл .
2.найти наименьший элемент матрицы X (15,20) и записать нули в ту строку и столбец , где он находится
Прошу вашей помощи . Буду очень благодарна.

 

[interacia]

2.найти наименьший элемент матрицы X (15,20) и записать нули в ту строку и столбец , где он находится

//найти наименьший элемент матрицы X (15,20)
// и записать нули в ту строку и столбец , где он находится
program Matrix1;
var
j,i,M,N:integer;
minj,mini:integer;
a: array [1..15,1..20] of integer;
begin

N:=15;
M:=20;
// Решение
// Заполнять будим случайными числами
 for i:=1 to N do begin
 for j:=1 to M do a[i,j]:=random(100);
 end;
// ищем минимум
minj:=1;
mini:=1;
 for i:=1 to N do begin
 for j:=1 to M do
if a[i,j]<a[mini,minj] then
  begin
  mini:=i;
  minj:=j;
  end;
 end;
// посмотрим исходный массив
writeln;
writeln('исходный массив');
 for i:=1 to N do begin
  for j:=1 to M do write(a[i,j]:3);
  writeln;
 end;

// зануляем что нужно
  for j:=1 to M do a[mini,j]:=0;
  for i:=1 to N do a[i,minj]:=0;
// смотрим что получилось
writeln;
writeln('Ответ');
 for i:=1 to N do begin
  for j:=1 to M do write(a[i,j]:3);
  writeln;
 end;
end.

:bsod: