Памятка по теме "Массивы"

Массив

Общий вид описания массива:

var : array [ ..

] of ;

Примеры описания массива:

1. var a: array [1..10] of integer;

2. const b: array [1..5] of integer = (4, 2, 3, 5, 7); - описание с постоянными переменными

Способы заполнения массива

1 способ. Ввод каждого значения с клавиатуры:

for i:=1 to 10 do read (a[i]);

2 способ. С помощью оператора присваивания (по формуле):

for i:=1 to 10 do a[i]:=i;

3 способ. С помощью оператора присваивания (случайными числами):

randomize;

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

Вывод массива

1 способ. Элементы массива можно вывести в строку, разделив их пробелом:

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

2 способ. Вывод с комментариями:

for i:=1 to 10 do writeln ('a[', i, ']=', a[i]);

1. Вычисление суммы элементов массива

Основной фрагмент программы:

s:=0;

for i:=1 to n do s:=s+a[i];

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

program  n_4;

var i, imax: 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],` `); вывод массива

imax:=1;

for i:=2 to 10 do поиск наибольшего числа по индексу

if a[i]a[imax] then imax:=i;

write ('Наибольший элемент a[', imax, ']=', a[imax])

end.

1. Нахождение элемента массива с заданными свойствами

Результатом поиска элемента, значение которого равно заданному, может быть:

• n - индекс элемента массива такой, что a[n]= x, где х - заданное число;

• сообщение о том, что искомого элемента в массиве не обнаружено.

Пример программы: Поиск элемента, равного 50

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 поиск значения равного 50

if a[i]=50 then n:=i;

if n=0 then write('Нет') else write (i)

end.

1. Сортировка массива выбором по убыванию: