Задача В Дельфи

Тема в разделе "Pascal and Delphi", создана пользователем koos, 18 дек 2011.

Статус темы:
Закрыта.
  1. koos

    koos Гость

    В одномерном массиве А, состоящий из 15 целых чисел, вычислить сумму элементов, расположенных между минимальным и максимальным элемен-тами (включая эти элементы).
     
  2. mss

    mss Гость

    icq 169527143
     
  3. Cambur

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    привет!
    venezuela@mail.ru
     
  4. OldSkorpin

    OldSkorpin Гость

    насколько понимаю - числа в массив случайные (рандомом) заносятся?
     
  5. kyvour

    kyvour Гость

    сначала генерирем массив из 15 элементов (т.к. в задачи не указано каким образом, предположим что рандомом от -n до n. n можна заменить, например, на 100)

    Код (Delphi):
    randomize;
    for i:=1 to 15 do
    A[i]:=random(n+1)-n;
    Далее определяем порядковые номера минимального и максимального элементов

    Код (Delphi):
    imin:=1;
    imax:=1;
    for i:=2 to 15 do
    begin
    if A[i]<A[imin] then imin:=i;
    if A[i]>A[imax] then imax:=i;
    end;
    Теперь нужно, собственно посчитать сумму, но тут уже есть некоторые условия:
    1) imin<imax - минимальный элемент стоит раньше максимального
    2) imax<imin - максимальный элемент стоит раньше минимального
    3) imin=imax - номера минимального и максимального элементов совпадают. Это может быть лишь в том случае, если весь массив состоит из однаковых элементов. Вероятность такого исхода практически нулевая, но все же...
    Ниже все собственно в коде:

    Код (Delphi):
    Sum:=0;
    if imin=imax then writeln('Массив состоит из одинаковых элементов')
    else if imin<imax then
    for i:=imin to imax do
    Sum:=Sum+A[i]
    else
    for i:=imax to imin do
    Sum:=Sum+A[i];
    Собственно эта программа ищет сумму между первым минимальным и первым максимальным элементом массива если таких элементов несколько
     
Загрузка...
Похожие Темы - Задача Дельфи
  1. Янчик
    Ответов:
    0
    Просмотров:
    480
  2. TrishaRay
    Ответов:
    1
    Просмотров:
    781
  3. elzim
    Ответов:
    0
    Просмотров:
    929
  4. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.117
  5. eremin-sanek
    Ответов:
    3
    Просмотров:
    1.105
Статус темы:
Закрыта.

Поделиться этой страницей