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

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

Ввод элементов массива

· одномерного

Write ('Введите размерность массива N=');

ReadLn (N);

WriteLn ('Введите элементы массива');

For i: =1 to N do

begin

Write ('A[', i, ']=');

ReadLn (A[i]);

end;

· двумерного

Write ('Введите размерность массива N, M');

ReadLn (N, M);

WriteLn ('Введите элементы массива');

For i: =1 to N do

For j: =1 to M do

begin

Write ('B[', i, ', ', j, ']=');

ReadLn (B[i, j]);

end;

Вывод элементов массива

· одномерного

WriteLn ('Вектор А: ');

For i: =1 to N do

Write (A[i]: 5);

WriteLn;

· двумерного

WriteLn ('Матрица В: ');

For i: =1 to N do

begin

For j: =1 to M do

Write (B[i, j]: 5);

WriteLn;

end;

Поиск нулевых элементов в массиве

· одномерном

k: =0;

For i: =1 to N do

If A[i]=0 then k: =k+1;

· двумерном

k: =0;

For i: =1 to N do

For j: =1 to M do

If B[i, j]=0 then k: =k+1;

Действия над элементами массива. Нахождение минимального элемента, его места. Перестановка элементов в массиве. Первый нечетный элемент.

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

· одномерного

min: =A[1];

i_min: =1;

For i: =1 to N do

If A[i]< min then

begin

min: =A[i];

i_min: =i;

end;

· двумерного

min: =B[1, 1];

i_min: =1;

j_min: =1;

For i: =1 to N do

For j: =1 to M do

If B[i, j]< min then

begin

min: =B[i, j];

i_min: =i;

j_min: =j;

end;

Перестановка минимального и первого элементов в массиве

· одномерном

r: =A[1];

A[1]: =A[i_min];

A[i_min]: =r;

· двумерном

r: =B[1, 1];

B[1, 1]: =B[i_min, j_min];

B[i_min, j_min]: =r;

Пример: Дан целочисленный вектор A(n), поменять местами максимальный и минимальный элементы вектора. На печать выдавать исходный вектор, максимальный, минимальный элементы, полученный вектор.

Program Example_Vect;

Uses Crt;

Const

N_max=10;

Var

N, i, max, i_max, min, i_min, r: Integer;

A: array [1..N_max] of Integer;

Begin

Clrscr;

Write('Введите размерность массива N (< ', N_max, ')=');

ReadLn (N);

WriteLn ('Введите элементы массива');

For i: =1 to N do {ввод элементов вектора}

begin

Write ('A[', i, ']=');

ReadLn (A[i]);

end;

WriteLn ('Исходный вектор А: ');

For i: =1 to N do { вывод вектора}

Write (A[i]: 5);

WriteLn;

min: =A[1]; {нахождение минимального элемента}

i_min: =1; {и его индекса}

For i: =1 to N do

If A[i]< min then

begin

min: =A[i];

i_min: =i;

end;

max: =A[1];

i_max: =1; {нахождение максимального элемента}

For i: =1 to N do {и его индекса}

If A[i]> max then

begin

max: =A[i];

i_max: =i;

end;

WriteLn('Минимальный элемент A[', i_min, ']=', min);

WriteLn('Максимальный элемент A[', i_max, ']=', max);

r: =A[i_min]; {перестановка} {другой способ: }

A[i_min]: =A[i_max]; { A[i_min]: =A[i_max]; }

A[i_max]: =r; { A[i_max]: =min; }

WriteLn ('Полученный вектор А: ');

For i: =1 to N do {вывод полученного вектора}

Write (A[i]: 5);

WriteLn;

End.

Действия над элементами массива. Нахождение сумм и произведений. Главная и побочная диагональ.