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

Алгоритм поиска минимального (максимального) элемента массива довольно очевиден: делается предположение, что первый элемент массива является минимальным (максимальным), затем остальные элементы массива сравниваются с этим элементом. Если обнаруживается, что проверяемый элемент меньше (больше) принятого за минимальный (максимальный), то этот элемент принимается за минимальный (максимальный) и продолжается проверка остальных элементов.

Найти минимальный элемент массива и его индекс.

var

a: array [1..20] of integer;

i, n, k, min, nmin: integer;

begin

clrscr;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

end;

min:=a[1]; nmin:=1;

for i:=2 to n do

if min>b[i] then begin

min:=b[i];

nmin:=i;

end;

writeln (‘Минимальный элемент массива ’, min, ‘ его индекс ’, nmin);

readln;

end.

Задачи:

1. Дан массив. Определить:

а) максимальный элемент;

б) минимальный элемент;

в) на сколько максимальный элемент больше минимального;

г) индекс максимального элемента;

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

2. Дан массив. Определить:

а) количество максимальных элементов в массиве;

б) количество минимальных элементов в массиве.

3. Изменить знак у максимального по модулю элемента массива. Минимальный элемент массива при этом не определять.

4. Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера.

5. Найти элемент, наиболее близкий к среднему значению всех элементов массива.

6. Дан массив. Скопировать все его элементы в другой массив такого же размера:

а) в том же порядке расположения элементов;

б) в обратном порядке расположения элементов.

7. Дан массив. Переписать его второй, четвертый и т.д. элементы в другой массив такого же размера:

а) расположив элементы на тех же местах, что и в исходном массиве;

б) расположив элементы подряд с начала массива.

8. Из элементов массива A сформировать массив B того же размера по правилу: если номер i элемента массива A четный, то B_i = A_i ², в противном случае B_i = 2· A_i.

9. Из элементов массива A, заполненного целыми числами, сформировать массив B того же размера по правилу: четные элементы массива A удвоить, нечетные оставить без изменения.

10. Даны два массива одного размера. Получить третий массив, каждый элемент которого равен:

а) сумме элементов с одинаковыми номерами в заданных массивах;

б) произведению элементов с одинаковыми номерами в заданных массивах;

в) максимальному из элементов с одинаковыми номерами в заданных массивах.

11. Даны два массива одного размера, в которых нет нулевых элементов. Получить третий массив, каждый элемент которого равен 1, если элементы заданных массивов с тем же номером имеют одинаковый знак, и равен нулю в противном случае.

12. Дан массив целых чисел.

а) Напечатать все элементы, предшествующие первому элементу с заданным значением n. Если элементов, равных n, в массиве нет, то должны быть напечатаны все элементы.

б) Напечатать все элементы, следующие за последним элементом, оканчивающимся цифрой "7". Если элементов, оканчивающихся цифрой "7", в массиве нет, то ни один элемент не должен быть напечатан.

13. Найти количество различных элементов в массиве.

14. Дано натуральное число n. Определить количество различных цифр в нем. Например, в числе 1234 количество различных цифр равно 4, в числе 22424 - 2, в числе 333 - 1.

15. Дан массив целых чисел. Найти:

а) номер первого нечетного элемента. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

б) номер первого элемента, кратного числу 13. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

16. Дан массив вещественных чисел. Определить, есть ли в нем отрицательные числа. В случае положительного ответа:

а) определить номер первого из них и напечатать все следующие за ним элементы;

б) определить номер последнего из них напечатать все элементы, расположенные слева от него.