Пример программы на обработку одномерного массива

Program MinMaxMas;

{Последовательный поиск и перестановка

минимального и максимального элементов в массиве

Входные данные: k - количество элементов в массиве,

M - массив из целых чисел.

Выходное данное: M - преобразованный массив.}

Const R=10; {Размер массива}

Type Tind=1..R; {Тип индекса элемента массива}

Tmas=Array [Tind] Of Integer; {Тип массив}

Var k,i,nmin,nmax:Tind; {1..R}

M:Tmas; {Исходный и преобразованный массив}

min,max:Integer; {Текущий минимакс}

Begin

{$R+} {Установка режима контроля индекса элемента}

Write('Задайте количество элементов не более ',R,': ');

ReadLn(k);

{Ввод массива}

Write('Вводите ',k,' целых чисел одной строкой:');

For i:=1 To k

Do Read(M[i]); {Ввод элемента массива}

{Поиск минимума и максимума в массиве}

min:=M[1]; nmin:=1; {Начальные установки минимума}

max:=M[1]; nmax:=1; {Начальные установки максимума}

For i:=2 To k {Перебор элементов массива}

Do If M[i]<min {Сравнение элемента с минимумом}

Then Begin min:=M[i]; {Текущий минимум}

nmin:=i {Номер минимума}

End

Else If M[i]>max {Сравнение элемента с максимумом}

Then Begin max:=M[i]; {Текущий максимум}

nmax:=i {Номер максимума}

End;

{Перестановка минимума и максимума}

M[nmin]:=max; M[nmax]:=min;

{Вывод массива}

WriteLn('Массив после перестановки:');

For i:=1 To k

Do Write (M[i],' '); {Вывод элемента массива}

WriteLn;

End.

Не нашли, что искали? Воспользуйтесь поиском: