Одномерные (линейные) массивы

Массив – упорядоченный набор одинаковых значений, объединенных одним именем.
Примеры:
А (14, 7, -5, 3, -10) – массив целых чисел,
Зима (‘декабрь’, ‘январь’, ‘февраль’) – символьный массив.
Элементы массива – переменные с индексом (индекс – порядковый номер):
A[1] = 14, A[3] = -5, Зима[2] = ‘январь’
Одномерные массивы

В разделе переменных VAR
var
<имя массива>:array[тип индекса] of <тип компоненты>
Примеры:
var
A : array [0..5] of string;
D : array [1..17] of real;
S : array [‘A’..’Z’] of integer;
Описание массивов

Производится поэлементно. Обычно используется цикл с параметром, где в качестве параметра используется индексная переменная.
Пример:
{заполнение массивов}
for i:=1 to 10 do
begin write (‘A[‘,i, ‘]=‘); readln (A[i]) end;
B [1] = 9.8; B[3] = -7,23;
{вывод элементов}
for i:=1 to 10 do write (‘A[‘,i, ‘]=‘, A[i]);
Ввод и вывод элементов массива

Заполнить случайными числами из диапазона [0, 100] вещественный одномерный массив из N чисел. Найти максимальное значение и его индекс. Посчитать сколько раз менялся максимальный элемент
Пример:
1)max=2.5, Kmax=1, T=1
2)max=28.6, Kmax=2, T=2
3)max=59.2, Kmax=3, T=3
4)max=59.2, Kmax=3, T=3
5)max=63.1, Kmax=5, T=4
Решить задачу

program MAX;
var X:array[1..N] of real; max: real;
Kmax, i, T : integer;
begin
write(‘N’); readln (N);
for i:=1 to N do X[i]:=random*100;
max:=X[1]; Kmax:=1; T:=1;
for i:=2 to N do
if X[i]>max then
begin max:=X[i]; Kmax:=I , T:=T+1 end;
writeln (‘Максимальный элемент и номер:’,
‘X[’,Kmax,’]=’,max, ‘замен:’, T)
end.
Решение задачи

Дан целочисленный массив. Отсортировать его элементы в порядке возрастания значений.
Задача

Метод пузырька
Дан массив А (8, 4, 7, 6)