9 класс

Массивы используются для описания последовательностей (одномерный массив) и таблиц (двумерный массив) в языках программирования. Массив содержит однотипные данные – элементы массива. Массив имеет общее имя, а элементы идентифицируются с помощью индексов.

Одномерный массив: F={10, 52, 47, 2015, 45, 7} Двумерный массив: 1, 5, 6 MASS= 2, 4, 8 3, 7, 0 Одномерный массив с символьными элементами: Day={Понедельник, Вторник, Среда, Четверг, Пятница, Суббота, Воскресенье}

Описание массива: Var : array [.. ] of Пример: Var a:array [1..10 ] of integer; Пример массива с заданными значениями – константами: const n:array [1..5] of integer = (0, 1, 2, 3, 4)

Ввод значений элементов с клавиатуры: For i:=1 to 10 do read (a[i]); Ввод значений с помощью оператора присваивания: For i:=1 to 10 do a[i]:=i; Заполнение массива случайными числами: Randomize; For i:=1 to 10 do a[i]:=random(100);

Вывод массива в строку: For i:=1 to 10 do Write (a[i], ); Вывод массива с комментариями: For i:=1 to 10 do Write (a[, I, ]=, a[i],);

1. Массив можно объявить в разделе описания переменных var. 2. При описании массива объявляется название, размер и тип массива. 3. Массив идентифицирует каждый элемент разными именами. 4. Массив может быть одномерный или двухмерный. 5. Для объявления и заполнения массива постоянными величинами используется раздел var 6. Для заполнения, обработки или вывода массива можно использовать циклический алгоритм. 7. В одном массиве можно хранить данные разного типа.

Заполнение, обработка и вывод массива

Заполнить массив случайными числа от 0 до 99 и вывести его на экран. Program massiv1; Var 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 writeln (a[, i, ]=, a[i]) end.

Вычислить сумму элементов массива Program massiv2; Var i,s: integer; a: array [1..10] of integer; Begin randomize; for i:=1 to 10 do begin a[i]:=random(100); writeln (a[, i, ]=, a[i]) end; s:=0; for i:=1 to 10 do s:=s+a[i]; writeln (сумма элементов массива равна, s) end.

Найти наибольший элемент массива Program massiv2; Var i, max: integer; a: array [1..10] of integer; Begin randomize; for i:=1 to 10 do begin a[i]:=random(100); writeln (a[, i, ]=, a[i]) end; max:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i; writeln (Наибольший элемент массива, a[max]) end.