Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

 

Тема: Массивы

Массив – упорядоченный набор однотипных данных, имеющих одно общее имя.

Каждый элемент массива имеет свой номер (номера).

К любому элементу массива можно обратиться по имени массива и по номеру этого элемента, который записывается в [ ] после имени.

Массив – индексированная переменная (переменная с индексом).

Имя массива задаётся так же, как и имя любой переменной.

 

По своей структуре массивы можно разделить на одномерные, двухмерные, трехмерные и т. д. (многомерные)

Одномерные массивы обычно записываются в одну строку или в один столбец.

Двухмерные массивы обычно записываются в виде таблицы (матрицы).

(Трехмерные массивы – в виде трехмерной матрицы.)

 

Размер (размерность) одномерного массива – это количество элементов в этом массиве.

Размерность двухмерного массива – это количество строк и столбцов в массиве.

Размерность трёхмерного массива – это количество строк, столбцов и слоёв в массиве.

 

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

 

Объявление одномерного массива:

Var Имя массива: array [Нижний индекс .. Верхний индекс] of Тип Элементов;

 

Объявление двухмерного массива:

Var Имя массива: array [Нижний индекс1 .. Верхний индекс1,

Нижний индекс2 .. Верхний индекс2] of Тип Элементов ;

 

Способы задания (заполнения) массивов в программе:

 

1.     С помощью оператора присваивания:

begin

A[1]:= 3.15;

A[2]:= -6;

A[3]:= …

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

 

2.     Элементы массива вводятся с клавиатуры:

Program f1;

var B: array [1..20] of integer; a: integer;

begin

for a:= 1 to 20 do

begin

writeln (‘введите элемент массива’);

readln (B [a])

end;

 

 

3.     С помощью генератора (датчика) случайных чисел:

Program f3;

var B: array[1..20] of integer; a: integer;

begin

randomize;

for a:= 1 to 20 do

begin

B[a]:= random(15);

Writeln (a, B[a]: 7)

end;

readln

end.

 

4.     С помощью формул, например:

B[a]:= а* а – 8* а + 1.

Чему будет равен первый член массива В? (-6)

 

5.     В разделе констант, например:

Program f5;

const B: array[1..5] of real= (-1, 2, 3.5, 17, 0);

var a: integer;

begin

 

Задача. Массив из 10 элементов задан генератором случайных чисел. Элементы массива в диапазоне от 0 до 8. Найти сумму всех элементов массива.

Program f5;

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

begin

randomize;

for a:= 1 to 10 do

begin

B[a]:= random (8);

Writeln (a, B[a]: 7);

S:= S + B[a]

end;

writeln (‘сумма ‘, S);

readln

end.