Нахождение максимального элемента массива

Задача 2.

Задан одномерный массив из N чисел. Найти максимальный элемент массива.

Решение:

Program Mass2;

Const X=100;

Var A:Array[1..10] of Integer;

I,N,Max:Integer;

Begin

Writeln(’Введите число элементов массива (N<=10)’);

Readln(N);

Randomize;

For I:=1 to N do A[I]:=Random(X);{заполнение массива случайными числами}

Max:=A[1];

For I:=1 to N do

If Max>A[I] Then A[I]:=Max;

For I:=1 to N do Writeln(’A[’,I,’]=’,A[I]);

Writeln(’Max=’,Max);

End.

Задачи:

1. Задан одномерный массив из N чисел. Найти минимальный элемент массива.

2. Задан одномерный массив из N чисел. Найти разницу между наибольшим и наименьшим элементами массива.

3. Задан одномерный массив из N чисел. Проверить, есть ли в массиве отрицательные элементы и если есть, то найти среди них наименьший.

Сортировка одномерного массива

Задача 3.

Задан одномерный массив из N чисел. Отсортировать все элементы массива по возрастанию.

Решение:

Program Mass3;

Var A:Array[1..10] of Integer;

I,P,N:Integer;

F:boolean;

Begin

Writeln(’Введите число элементов массива (N<=10)’);

Readln(N);

For I:=1 to N do Readln(A[I]);

F:=False;

While F=False do

Begin

F:=True;

For I:=1 to N-1 do

If A[I]>A[I+1] Then

Begin

P:=A[I];

A[I]:=A[I+1];

A[I+1]:=P;

F:=False;

End;

End;

For I:=1 to N do Writeln(’A[’,I,’]=’,A[I]);

End.

Задачи:

1. Задан одномерный массив из N строк, имеющих вид фамилий. Отсортировать все элементы массива по алфавиту.

2. В массиве каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы вначале массива расположились все нули, затем все единицы и, наконец все двойки.

3. Задан одномерный массив из N чисел. Переставить элементы массива так, чтобы отрицательные элементы предшествовали всем неотрицательным.

4. Задан одномерный массив из N чисел и число В. Упорядочить массив по возрастанию и поместить переменную В в соответствующее место массива.