Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2019, 17:36   #1
jOBER
Пользователь
 
Регистрация: 02.09.2018
Сообщений: 32
По умолчанию [РЕШЕНО] Разница между элементами массивов.

Задание звучит так: Найти разность между максимальным и минимальным элементами каждого из столбцов матрицы. Я сделал нахождение этих чисел, а вот разность не получается.
Код:
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.

Последний раз редактировалось Вадим Мошев; 10.01.2019 в 13:57.
jOBER вне форума Ответить с цитированием
Старый 09.01.2019, 17:39   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.
p51x вне форума Ответить с цитированием
Старый 09.01.2019, 17:53   #3
jOBER
Пользователь
 
Регистрация: 02.09.2018
Сообщений: 32
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.
Спасибо решил.

Последний раз редактировалось jOBER; 09.01.2019 в 18:07.
jOBER вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из элементов двух стеков с одинаково упорядоченными элементами собрать новый стек с упорядоченными элементами, изменив связи между элементами стеков (не выделяя новую память). Андрей3636 Паскаль, Turbo Pascal, PascalABC.NET 7 01.11.2017 10:47
Разное написание массивов(в чём разница) FEER-2000 Общие вопросы по Java, Java SE, Kotlin 2 11.01.2013 08:07
Операции с элементами массивов Neyrone Помощь студентам 1 22.11.2010 10:03
Паскаль: Операции с элементами массивов. iolopukki Помощь студентам 1 23.06.2009 19:54
[C#] Работа с элементами массивов Doublefaced Помощь студентам 1 18.06.2009 15:34