Одномерные массивы целых чисел

Решение разнообразных задач, связанных с обработкой массивов, базируется на решении таких типовых задач, как:
- суммирование элементов массива;
- поиск элемента с заданными свойствами;
- сортировка массива.

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

Значение элемента массива

Индекс элемента массива

const b: array [1..5] of integer = (4, 2, 3, 5, 7);

Тип элементов массива

Имя массива

Максимальное значение индекса

Минимальное значение индекса

Значение 1-го элемента массива

Массив b с постоянными значениями описан в разделе описания констант.

a[i]=2*a[i]+6

2 способ. Вывод с комментариями:
for i:=1 to 10 do writeln ('a[', i, ']=', a[i]);

Заполнение массива A(10) случайными числами и вывод элементов массива

randomize;
begin  for i:=1 to 10 do a[i]:=random(100);

for i:=1 to 10 do write (a[i],` `);   end.

Определяется ячейка памяти (переменная s),
в которой будет последовательно накапливаться
результат суммирования

Переменной s присваивается начальное значение 0
- число, не влияющее на результат сложения

Для каждого элемента массива из переменной s
считывается её текущее значение и складывается
со значением элемента массива;
полученный результат присваивается переменной s.

Второй способ оформления:
Используем операторные скобки и всё (ввод, вывод, обработку) делаем в одном цикле.

Нахождение наибольшего элемента
в стопке карточек с записанными числами:

3) Повторить действия, описанные в пункте 2 для всех
оставшихся карточек.

При организации поиска наибольшего элемента массива правильнее искать его индекс.

!

n - индекс элемента массива такой, что a[n]= x, где х - заданное число;
сообщение о том, что искомого элемента в массиве не обнаружено.

Здесь:
трём равен 4-й элемент;
десяти равны 1-й и 9-й элементы;
нет элемента, равного 12.

program  n_5;
var n, i: integer;
a: array[1..10] of integer;
begin 
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write (a[i],` `);
n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write('Нет') else write (i)
end.

Будет найден первый из элементов, удовлетворяющих условию.

program  kolich;
var k, i: integer;
a: array[1..10] of integer;
begin 
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write (a[i],` `);
k:=0;
for i:=1 to 10 do if a[i]>50 then k:=k+1;
write('k=', k)
end.

3. В неотсортированной части массива снова выбирается
максимальный элемент; он меняется местами с первым
неотсортированным элементом массива

Действия пункта 3 повторяются с неотсортированными
элементами массива, пока не останется один
неотсортированный элемент (минимальный)

Сортировка элементов массива по невозрастанию
выбором осуществляется следующим образом: