Поиск минимального и максимального элементов одномерного массива. (№9)

Одномерный массив (основные задачи).

Объединение двух массивов в один. (№8)

Задачи по объединению массивов в один имеют различные способы решения. Общим является то, что при формировании элементов объединяемого массива, его значения индексов не будут совпадать со значениями индексов массивов, используемых для объединения. Поэтому основной и главной задачей становится описание закономерности формирования объединенного массива. Например, требуется получить массив С включая элементы массива А и B чередованием : a1;b1;a2;b2……

№8. Program Obiedinenie;

Type

mas1=array[1..10] of integer;

mas2=array[1..20] of integer;

Var

a, b : mas1;

c : mas2;

i : integer;

Begin

randomize;

writeln (‘ Массив A ‘);

for i:=1 to 10 do

Begin

a[ i ]:=random(51);

write (a[ i ]:5);

end;

writeln (‘ Массив B ‘);

fori:=1 to 10 do

Begin

b[ i ]:=random(151)-70;

write (b[ i ]:5);

end;

for i:=1 to 20 do

if i mod 2=0 then

c[ i ]:=b[i/2];

Else

c[ i ]:=a[i div 2];

writeln (‘ Массив C ‘);

for i:=1to 20 do

write (c[ i ]:6);

Readln;

End.

№9. Program Minimum;

Type

mas=array[1..20] of integer;

Var

a : mas;

min, i : integer;

Begin

randomize;

writeln (‘ Массив ‘);

for i:=1 to 10 do

Begin

a[ i ]:=random(101)-50;

write (a[ i ]:6);

end;

min:=a[1];

for i:=2 to 20 do

if a[ i ] < min then

min:=a[ i ];

writeln (min);

Readln;

End.

Поиск минимального и максимального элементов одномерного массива. (№9)

Поиск максимального и минимального элементов массива относится к классическим задачам обработки данных с использованием массива. Суть алгоритма поиска минимального элемента состоит в том, что предположительно за минимальный объявляют первый элемент массива и перебирая все элементы изменяют значение минимального элемента текущим, в том случае, если он оказался меньше минимального на данном этапе. Задача нахождения максимального элемента имеет подобное тривиальное решение.