VPF::[Pascal] Одномерный массив - Форум программистов

hanter

Дата 27.1.2007, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 26.1.2007

Репутация: нет
Всего: нет

В одномерном массиве все элементы после максимального поменять местами (последний становиться первым после максимального).

V.A.KeRneL

Дата 27.1.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Vadim A. Kazantsev

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 3.12.2006
Где: Moscow, Russia

Репутация: 7
Всего: 14

hanter, ВотЬ:

Код


program reverse_after_max;

uses 
    Crt;

const 
    MAX_ARR_SIZE = 100;  { maximum size of array }

var 
    arr : array[1..MAX_ARR_SIZE] of integer;
    n : integer;     { real size of array `arr' }
    nmax : integer;  { index of maximum element }
    max : integer;   { value of maximum element }
    tmp : integer;   { temporary integer variable }
    i : integer;     { index, counter }

(*label 1;*)

BEGIN 
    ClrScr;
    
    (*1: *)
    
    { Array input.  }
    write('Enter length of array (number of elements) := ');
    readln(n);
    for i := 1 to n do begin 
        write('arr[', i, '] := ');
        readln(arr[i]);
    end;
    
    { Finding of index of maximum element.  }
    nmax := 1;
    max  := arr[1];
    for i := 2 to n do 
        (*if (arr[i] > max) then begin } *)  { for first max }
        (**)if (arr[i] >= max) then begin (**)  { for last max }
            nmax := i;
            max  := arr[i];
        end;
    
    { Reversing of subarray[nmax..n] (after max).  }
    if (nmax <> n) then 
        for i := 0 to ((n - nmax - 1) div 2) do begin 
            tmp := arr[nmax + 1 + i];
            arr[nmax + 1 + i] := arr[n - i];
            arr[n - i] := tmp;
        end;
    
    { Array output.  }
    writeln('After reversing of subarray[nmax..n]: ');
    write('[');
    if (n > 0) then 
        write(arr[1]);
    for i := 2 to n do 
        write(', ', arr[i]);
    writeln(']');
    
    readln;
    
    (*goto 1;*)
END.

==========================================================================================
P.S. Всегда следуйте правилам форма! В частности:
Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или флажком при ответе smile

==========================================================================================

Это сообщение отредактировал(а) V.A.KeRneL - 27.1.2007, 23:50

--------------------

«C'est un pense-creux d'ici. C'est le meilleur et le plus irascible homme du monde...» © Ф.М. Достоевский, «Бесы»
---/)/)---(\.../)---(\(\
--(':'=)---(=';'=)---(=':')
(")(")..)-(").--.(")-(..(")(")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »