Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Задание звучит так: Найти разность между максимальным и минимальным элементами каждого из столбцов матрицы. Я сделал нахождение этих чисел, а вот разность не получается.
Код:
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 в 14:57.
jOBER вне форума   Ответить с цитированием
Старый 09.01.2019, 18:39   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 14,481
Репутация: 2631
По умолчанию

Циклы для поиска мин и макс соедините в один. Разница будет равна max-min после цикла по i.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x на форуме   Ответить с цитированием
Старый 09.01.2019, 18:53   #3
jOBER
Пользователь
 
Регистрация: 03.09.2018
Сообщений: 28
Репутация: 10
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:08.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru