💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Одномерные и двумерные массивы

Массив – это упорядоченная последовательность из фиксированного числа однотипных элементов, которая обозначается одним именем.

Упорядоченность элементов заключается в том, что все эти элементы располагаются в последовательных ячейках оперативной памяти.

В программировании различают следующие типы массивов:

1) Одномерные массивы (линейные таблицы);

2) Двумерные массивы (прямоугольные таблицы);

3) Многомерные массивы (трехмерные и т.д. таблицы).

Для того, чтобы обратиться к нужному элементу массива необходимо указать имя массива и его индекс. Индекс – это порядковый номер элемента в массиве.

Т.е. обращение происходит по правилу:

идентификатор_массива[индекс]

Общее количество элементов в массиве называется размерностью массива.

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

1. с описанием пользовательского типа:

Type

идентификатор_типа=array[размерность] of базовый_тип_элементов;

Var

идентификатор_массива: идентификатор_типа;

2. без описания пользовательского типа:

Var

идентификатор_массива: array[размерность] of базовый_тип_элементов;

Здесь размерность указывается следующим образом:

[1..10]

[10..100]

[5..10] одномерные массивы

[1..5]

[1..10, 1..10] – двумерные массивы

6.1. Стандартные алгоритмы обработки массивов:

1. Ввод-вывод элементов:

Program _1;

Uses Crt;

Const n=10;

Type

massiv= array [1..n] of integer;

Var

a: massiv; i: byte;

Begin

ClrScr;

Writeln (‘Введите элементы массива: ’);

For i: =1 to n do

Begin

write (‘a[‘, i, ’]=’);

Readln (a[i]);

end;

For i: =1 to n do

Write (a[i], ’ ‘);

Readkey;

End.

2. Нахождение суммы, произведения, среднего арифметического элементов массива:

Program Summa;

Uses Crt;

Type

massiv= array [1..10] of integer;

Var

a: massiv; i: byte; S: integer;

Begin

ClrScr;

Writeln (‘Введите элементы массива: ’);

For i: =1 to 10 do

Begin

write (‘a[‘, i, ’]=’);

Readln (a[i]);

end;

For i: =1 to 10 do

S: =s+a[i];

Writeln (‘S=’, S);

Readkey;

End.

Program Proizvedenie;

Uses Crt;

Var

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

i: byte; P: integer;

Begin

ClrScr;

Writeln (‘Введите элементы массива: ’);

For i: =1 to 10 do

Begin

write (‘a[‘, i, ’]=’);

Readln (a[i]);

end;

P: =1;

For i: =1 to 10 do

P: =P*a[i];

Writeln (‘P=’, P);

Readkey;

End.

Program SrArifmet;

Uses Crt;

Var

a: array [1..1000] of integer;

S, n, i: integer; Sr: real;

Begin

ClrScr;

Writeln (‘Введите размерность массива: ’); Readln (n);

Writeln (‘Введите элементы массива: ’);

For i: =1 to n do

Begin

write (‘a[‘, i, ’]=’);

Readln (a[i]);

end;

For i: =1 to n do

s: =s+a[i];

Sr: =s/n;

Writeln (‘Sr=’, Sr);

Readkey;

End.

3. Нахождение максимального и минимального элемента массива.

Program Maximum;

Uses Crt;

Var

a: array [1..1000] of integer;

max, n, i: integer;

Begin

ClrScr;

Writeln (‘Введите размерность массива: ’); Readln (n);

Writeln (‘Введите элементы массива: ’);

For i: =1 to n do

Begin

write (‘a[‘, i, ’]=’);

Readln (a[i]);

end;

max: =a[1];

For i: =1 to n do

if a[i]> max

then

max: =a[i];

Writeln (‘max=’, max);

Readkey;

End.

Минимальный находится аналогично.

4. Нахождение суммы элементов двумерного массива:

Program Summa;

Uses Crt;

Type

massiv= array [1..10, 1..10] of integer;

Var

a: massiv; i, j: byte; S: integer;

Begin

ClrScr;

Writeln (‘Введите элементы массива: ’);

For i: =1 to 10 do

For j: =1 to 10 do

Begin

write (‘a[‘, i, ’, ’, j, ’]=’);

Readln (a[i, j]);

end;

For i: =1 to 10 do

For j: =1 to 10 do

S: =s+a[i, j];

Writeln (‘S=’, S);

Readkey;

End.

Рассмотрим еще пример: дан массив. Найти сколько в нем пар соседних одинаковых чисел.

Program massiv;

Const m=100;

Begin

Var mas: array [1..m] of integer;

Write (‘Ввести длину массива N=’);

Readln (N);

K: =0;

For i: =1 to n do

Begin

Write (‘Ввести элементы массива ‘);

Readln (mas[i]);

End;

For i: =1 to n-1 do

if mas[i]=mas[i+1]

then k: =k+1;

Writeln (‘ Количество пар=’, k);

End.