Массивы в Pascal. Одномерные массивы

Массивы

Один из самых распространенных способов организации данных – табличный.
Таблицы могут состоять

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

Прежде чем использовать массив в программе необходимо зарезервировать в памяти место

Алгоритм решения задач с использованием массивов:
Описание массива
Заполнение массива
Вывод массива (распечатка)
Выполнение условий

Способы задания элементов массива:

Ввод с клавиатуры.
Write(‘Введите число элементов’);
Read(n);
For i:=1 to n

Способы задания элементов массива:

2. С помощью генератора случайных чисел.
Randomize;
Write(‘Введите число элементов’);
Read(n);
For

Пример 1 В одномерном массиве посчитать сумму положительных элементов

program sum;
uses crt;
var a:array[1..10]

Пример 2 В одномерном массиве вычислить минимальный элемент

program minimum;
uses crt;
var a:array[1..10]

Пример 3 Дан массив целых чисел. Записать его наоборот

program massiv;
uses crt;
var a:array[1..10]

Пример 4 Определить, сколько пар одинаковых соседних элементов содержится в массиве.

program massiv;
uses

Пример 5 В одномерном массиве заменить все нулевые элементы на 10

program massiv;
uses

Самостоятельно:

В одномерном массиве найти разность наибольшего и наименьшего элементов.
Дан одномерный массив.

Самостоятельная работа. Генератор случайных чисел

В-1
Создать и напечатать одномерный массив случайными числами

Решение задач:

Первый уровень сложности
Задан одномерный массив целых чисел.
Вывести все нечетные

Двумерные массивы

Массивы в Pascal

Массивы Двумерные массивы

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

Задание элементов двумерного массива

randomize;
write(‘Введите число строк’);
readln(n);
writeln(‘Введите число столбцов’);
readln(m);
for i:=1 to n

program uvelich;
uses crt;
var a:array[1..10,1..10] of integer;
n,m,i,j:integer;
begin
clrscr;
randomize;
writeln('Введите число

uses crt;
var a:array[1..10,1..10] of integer;
n,m,i,j,s:integer;
begin
clrscr; randomize;
writeln('Введите число строк');

Главная и побочная диагонали

Матрица, у которой число строк равно числу столбцов,

Квадратная матрица

а11 а12 а13 а14
а21 а22 а23 а24
а31 а32 а33 а34
а41 а42 а43 а44

Главная диагональ

Побочная
диагональ

i = n-j+1
i > n-j+1 – под диаг.
i <