Алгоритм поиска минимального (максимального) элемента массива довольно очевиден: делается предположение, что первый элемент массива является минимальным (максимальным), затем остальные элементы массива сравниваются с этим элементом. Если обнаруживается, что проверяемый элемент меньше (больше) принятого за минимальный (максимальный), то этот элемент принимается за минимальный (максимальный) и продолжается проверка остальных элементов.
Найти минимальный элемент массива и его индекс.
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 четный, то Bi= Ai2, в противном случае Bi = 2·Ai.
9. Из элементов массива A, заполненного целыми числами, сформировать массив B того же размера по правилу: четные элементы массива A удвоить, нечетные оставить без изменения.
10. Даны два массива одного размера. Получить третий массив, каждый элемент которого равен:
а) сумме элементов с одинаковыми номерами в заданных массивах;
б) произведению элементов с одинаковыми номерами в заданных массивах;
в) максимальному из элементов с одинаковыми номерами в заданных массивах.
11. Даны два массива одного размера, в которых нет нулевых элементов. Получить третий массив, каждый элемент которого равен 1, если элементы заданных массивов с тем же номером имеют одинаковый знак, и равен нулю в противном случае.
12. Дан массив целых чисел.
а) Напечатать все элементы, предшествующие первому элементу с заданным значением n. Если элементов, равных n, в массиве нет, то должны быть напечатаны все элементы.
б) Напечатать все элементы, следующие за последним элементом, оканчивающимся цифрой "7". Если элементов, оканчивающихся цифрой "7", в массиве нет, то ни один элемент не должен быть напечатан.
13. Найти количество различных элементов в массиве.
14. Дано натуральное число n. Определить количество различных цифр в нем. Например, в числе 1234 количество различных цифр равно 4, в числе 22424 - 2, в числе 333 - 1.
15. Дан массив целых чисел. Найти:
а) номер первого нечетного элемента. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;
б) номер первого элемента, кратного числу 13. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;
16. Дан массив вещественных чисел. Определить, есть ли в нем отрицательные числа. В случае положительного ответа:
а) определить номер первого из них и напечатать все следующие за ним элементы;
б) определить номер последнего из них напечатать все элементы, расположенные слева от него.
