[РЕШЕНО] Разница между элементами массивов.

[jOBER]

Задание звучит так: Найти разность между максимальным и минимальным элементами каждого из столбцов матрицы. Я сделал нахождение этих чисел, а вот разность не получается.

const N = 2; M = 5;
var
    brr,arr: array[1..N,1..M] of byte;
    raznica,i,j,max,min: byte;    
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to M do begin
            arr[i,j] := random(256);
            write(' |',arr[i,j]:3,'| ');
            brr[i,j]:=arr[i,j]
        end;
        writeln;
    end;
    for i:=1 to M do 
        write(' ----- ');
    writeln;
    for j:=1 to M do begin
        max := arr[1,j];
        for i:=2 to N do
            if arr[i,j] > max then
                max := arr[i,j];
        write('  ',max:3,'  ');
    end;
    writeln;
        for i:=1 to M do 
        write(' ----- ');
    writeln;
    for j:=1 to M do begin
        min := brr[1,j];
        for i:=2 to N do
            if arr[i,j] < min then
                min := brr[i,j];
        write('  ',min:3,'  ');
    end;
    writeln;
    for j:=1 to M do begin
      for i:=1 to N do
        raznica:= arr[i,j]-brr[i,j];
    write(j,'-й столбец разница между max и min',raznica);
    writeln;
end;
end.

Решение:

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

Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.

[p51x]

Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.

[jOBER]

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

Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.

Спасибо решил.