1/22/2018 Одномерные массивы.

1/22/2018 Одномерные массивы. Работа с элементами массива

Пример1. Найти сумму 5 целых чисел. Program Example_1; Var x 1, x 2, x 3, x 4, x 5, s: Integer; Begin Writeln(‘ введите пять целых чисел‘); Readln(x 1, x 2, x 3, x 4, x 5); {вводим пять целых чисел} Sum: =x 1+x 2+x 3+x 4+x 5; {находим их сумму} Writeln(‘их сумма равна ’, s); {вывод результата на экран} Readln; End.

Пример 2. Найти сумму 30 целых чисел. Одномерный массив - это фиксированное количество элементов одного и того же типа, объединенных одним именем, где каждый элемент имеет свой номер.

Массивы Массив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом. Особенности: • все элементы имеют один тип • весь массив имеет одно имя • все элементы расположены в памяти рядом Примеры: • список учеников в классе • квартиры в доме • школы в городе • данные о температуре воздуха за год

Массивы НОМЕР элемента массива (ИНДЕКС) A массив 1 2 33 4 5 5 10 15 20 25 A[1] A[2] A[3] A[4] ЗНАЧЕНИЕ A[5] элемента массива НОМЕР (ИНДЕКС) элемента массива: 2 A[2] ЗНАЧЕНИЕ элемента массива: 10

Объявление массивов Зачем объявлять? определить имя массива определить тип массива определить число элементов выделить место в памяти

Объявление массивов Type myarray = array [1. . 30] Of Integer; myarray - это имя нового типа; array - служебное слово (в переводе с английского означает “массив”, “набор”); [1. . 30] - в квадратных скобках указывается номер первого элемента, затем, после двух точек, номер последнего элемента массива, пусть в этом примере первый элемент имеет номер 1, а последний - номер 30; Of - служебное слово (в переводе c английского “из” ); Integer - тип всех элементов массива.

Объявление массивов type myarray = array [1. . 30] of integer; var A: My. Array; Можем использовать константу const n=30; type My. Array=array [1. . n] of Integer; var A: My. Array;

Пример 2. Найти сумму 30 целых чисел. Program Example_2; Const n=30; Type My. Array=Array [1. . n] of integer; Var A: My. Array; s, i: Integer; Begin Write. Ln ('Введите ', n, ' чисел'); For i: =l to n do readln (A[i] ) ; s: =0; For i: =l to n do s: =s+A[i]; Writeln('Их сумма равна ', s); End.