Занятие 5. Массивы.
На уроке мы познакомились с
- Объявлением массива
- Заполнением массива
- Выводом массива
- Операциями с элементами массива
Программа
№1: объявление, заполнение вывод массива
const
MaxN=5; // В константе
размер массива
var
a: array [1..MaxN] of integer;
i: integer;begin
cls;
// Заполнение массива,значение и индекс элемента
совпадают
for i:=1
to MaxN do
a[i]:=i;
// Вывод массива
for
i:=1 to MaxN do
writeln('A[',i,']=',a[i]);
end.
Программа
№2: поиск минимального элемента массива
const
MaxN=5;
var
a: array [1..MaxN] of integer;
i: integer;
Amin, Amax: integer;
begin
cls;
// Заполнение массива
for
i:=1 to MaxN do
begin
a[i]:=random(101);
writeln('A[',i,']=',a[i]);
end;
Amin:=a[1];
// Поиск минимального элемента
for i:=1
to MaxN do
begin
if
Amin>a[i]
then
Amin:=a[i];
end;
writeln('Amin=',Amin);
end.
Программа
№3. Перемещение минимального элемента массива в начало
Обратите
внимание на разницу понятия элемент массива и индекс элемента
// Задача: Минимальный элемент массива переместить
в начало,элемент из начала на место минимального элемента
const
MaxN=5;
var
a: array [1..MaxN] of integer;
i: integer;
Amin: integer; //
Минимальное значение массива в текущей итерации цикла
IndMin: integer; // Индекс минимального
элемента
tmp: integer; //
Временная переменная для перестановки значений элементов массива
begin
cls;
// Заполнение массива
for
i:=1 to MaxN do
begin
a[i]:=random(101);
writeln('A[',i,']=',a[i]);
end;
Amin:=a[1];
// Поиск минимального элемента
for
i:=2 to MaxN do
begin
if
Amin>a[i]
then
begin
Amin:=a[i];
// Сохраняем значение минимального
элемента
IndMin:=i; //
Сохраняем индекс минимального элемента
end;
end;
writeln('Amin=',Amin);
tmp:=a[1];
// Перестановка местами первого и минимального элементов
массива
a[1]:=Amin;
a[IndMin]:=tmp;
// Вывод массив
writeln('Результат после перестановки');
for i:=1
to MaxN do
writeln('A[',i,']=',a[i]);
end.
