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

Begin

For i:=1 to 4 do

For j:=1 to 4 do

For i:=1 to 4 do

Uses

Begin

For I := 1 to 10 do

Begin

Var

Uses

Ввод массива

For i :=1 to N do

Begin

Var

Const

Uses

SysUtils;

N=5;

Team: array[1..N] of string[10]= ('Zenit', 'Dinamo', 'Spartak', 'Rotor', 'CSK');

i:integer; //индекс, номер массива

Writeln( i, ' element massive Team ', Team[i] );

//вывод элементов массива Team

readln

end.

Под вводом массива понимается процесс получения от пользователя во время работы программы, значений элементов массива.

При вводе элементов массива удобно использовать оператор цикла for, при этом переменная счетчик может быть использована в качестве индекса элементов массива.

Иногда в качестве элементов массива используют случайные числа, которые можно получить с помощью функции Random(x), где х - случайное число в диапазоне 0..x-1.

Перед первым обращением к функции Random необходимо вызовом процедуры Randomize инициализировать программный генератор случайных чисел.

Пример ввода и вывода одномерного массива A с использованием программного генератора случайных чисел.

program Example3;

{$APPTYPE CONSOLE}

SysUtils;

I: byte;

A: array[1..10] of byte; //объявление целочисленного одномерного массива A

Randomize; //обращение к генератору случайных чисел

A[i]:= Random(20); //присвоение элементам массива А значений

// случайных чисел в диапазоне от 0 до 19

write(A[i] ,' '); //вывод элементов массива в строку

end;

readln

end.

Пример ввода значений элементов двумерного массива D во время работы программы, с последующим их выводом на печать в виде матрицы.

program Example4;

{$APPTYPE CONSOLE}

SysUtils;

var i: integer; //число строк

j: integer; //число столбцов

D: array[1..4,1..4] of integer; //объявление целочисленного двумерного массива

begin//ввод элементов массива D

writeln ('vvedite ', i, j, ' element massive D');

readln (D[i,j]);

end;

writeln('Zadannay matrix D: ');

for j:=1 to 4 do write(D[i,j], ' ');

writeln;

end;

readln; //вывод массива D в виде матрицы

end.

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

Задача 1. В массиве из N £ 20 элементов вычислить наибольший элемент массива Х и его номер.