29. Решение задач средней сложности.

Задача 1. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Найти наибольший элемент массива.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Max:=a[1];

For i:=1 To n Do If a[i]>Max Then Max:=a[i];

WriteLn(‘Max=’,Max);

При этом следует не забыть объявить переменную Max целого типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(21)-10.

Задача 2. Заполнить одномерный массив из 8 элементов целыми случайными числами в пределах от -5 до 5. Найти наименьший элемент массива.

Задача 3. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Найти номер наибольшего элемента массива (номер позиции, на которой он находится).

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

nMax:=1;

For i:=1 To n Do If a[i]>a[nMax] Then nMax:=i;

WriteLn(‘nMax=’,nMax);

WriteLn(‘Max=’,a[nMax]);

При этом следует не забыть объявить переменную nMax целого типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(21)-10.

Задача 4. Заполнить одномерный массив из 6 элементов целыми случайными числами в пределах от 0 до 10. Найти номер наименьшего элемента массива (номер позиции, на которой он находится).

Задача 5. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -3 до 3. Найти наибольший элемент массива и если их несколько, то распечатать номера всех позиций, на которых они расположены.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Max:=a[1];

For i:=1 To n Do If a[i]>Max Then Max:=a[i];

WriteLn(‘Max=’,Max);

Write(‘Номера позиций:’);

For i:=1 To n Do If a[i]=Max Then Write(i:4);

WriteLn;

При этом следует не забыть объявить переменную Max целого типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(7)-3.

Задача 6. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -3 до 3. Найти наименьший элемент массива и если их несколько, то распечатать номера всех позиций, на которых они расположены.

Задача 7. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Найти второй по величине элемент массива.

За основу берем программу OM_Rnd

В области программы, предназначенной для решения основной задачи, вводим следующий код:

Max:=a[1];

For i:=1 To n Do If a[i]>Max Then Max:=a[i];

Second:=-1000;

For i:=1 To n Do If (a[i]<>Max) And (a[i]>Second) Then Second:=a[i];

WriteLn(‘Second=’,Second);

При этом следует не забыть объявить переменные Max и Second целого типа, сделать n равным 10 и изменить формулу генератора случайных чисел на Random(21)-10.

Задача 8. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Найти предпоследний по величине элемент массива (который больше только самого минимального по величине).

Задача 9. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -10 до 10. Найти третий по величине элемент массива. Это тот элемент, который меньше только Max и Second. Смотри решение задачи №7.

Задача 10. Заполнить одномерный массив из 10 элементов целыми случайными числами в пределах от -2 до 2. Найти каких элементов больше максимальных по величине или минимальных, а может их одинаковое количество. Необходимо вспомнить, как вычисляется количество элементов в предыдущем параграфе.