Матрицы, Паскаль, написать прогу.

[Egorka_93]

Задача такова (написать в Паскале):
Дана матрица А порядка N (заполненная случайными числами). Получить матрицу B, проделав над всеми элементами исходной матрицы следующие преобразования:
B(i,j) = A(i,j) - minA(i,j)(i), если A(i,j)>minA(i,j)(i)
B(i,j) = A(i,j), если A(i,j) = minA(i,j)(i).
(То есть из каждого элемента исходной матрицы строки i вычесть минимальный элемент этой строки, сам минимальный элемент оставить без изменения).
Вывести исходную и полученную матрицы. Оформить подпрограммами.

В принципе я понимаю, что от меня хотят и как это должно работать, но нормально написать не получается((( Помогите, пожалуйста.

[alex_fcsm]

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

[Novi4ok_11]

minA(i,j)(i)

Эта запись означает минимальный элемент в строке?

[alex_fcsm]

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

Эта запись означает минимальный элемент в строке?

Я знаю, что это означает. Выкладывайте что вы уже сделали

[Novi4ok_11]

Тогда для начала нужно найти этот минимальный в строке, заполнить строку новой матрици по формуле

for i:=1 to n do
begin 
min:=a[i,1];
    for j:=1 to n do 
      begin  
        if (a[i,j]<min) then min=a[i,j];
      end; 
    for j:=1 to n do 
      begin  
      if (A(i,j)>minA(i,j)(i)) B(i,j) = A(i,j) - minA(i,j)(i);
      if (A(i,j) = minA(i,j)(i)) B(i,j) = A(i,j);
      end; 
end;

if (A(i,j)>minA(i,j)(i)) B(i,j) = A(i,j) - minA(i,j)(i);
if (A(i,j) = minA(i,j)(i)) B(i,j) = A(i,j);

Тут Ваш текст взял что бы не писать

alex_fcsm это не моя задача я у автора спрашую, просто не понял запись

[iBuTTHead]

Начало Цикла1(от 1 до n)

Поиск Минимального значения в строке.

Начало Цикла2(от 1 до m)

Условный оператор
Присваивание значений.(матрица б)


Конец Цикла 2

Конец Цикла 1


Ну а тут думайте сами как что,

[Egorka_93]

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

Эта запись означает минимальный элемент в строке?

Да. это минимальный элемент в строке

[Novi4ok_11]

Тогда я код основной части я написал, ввод-вывод думаю напишите

[Egorka_93]

Есть программа на нахождение минимального элемента в каждой строке и вывода его на экран:

Prorgam DZ;
var n,m,min:integer;
 a:array[1..20,1..20] of integer;
 b:array[1..20] of integer;

procedure vvod;
var i,j: integer;
begin
 writeln ('Введите количество строк массива');
 readln (n);
 writeln ('Введите количество столбцов массива');
 readln (m);
  begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
   begin
   a[i,j]:=random(100);
   end;
  end;
end;

procedre vivod;
var i,j: ineger;
begin
for i:=1 to n do write (b[i]:4);
end;

procedure poisk;
var j1,n1,min: integer;
begin
min:=100;
for j1:=1 to m do if min>a[n1,j1] then min:=a[n1,j1];
end;

procedure resh;
var i,j,min:integer;
begin
for i:=1 to n do begin
 poisk;
 b[i]:=min;
 end;
end;

begin
 vvod;
 resh;
 vivod;
end.

Код оформляйте правильно!!!

[Egorka_93]

При компилировании он мне даёт ошибку 201 (Free Pascal IDE). Но мне ещё надо дописать вычитание минимальных элементов из строк матрицы, вот с этим у меня проблема...