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

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

Программы сортировки элементов массива.

1)поиск наименьшего (наибольшего элемента) и перемещение его.

program fff;

uses crt;

const n=15;

var a: array [1..n] of integer;

i, j, p: integer;

begin

clrscr;

for i: =1 to n do begin

a[i]: =random(40);

write(a[i]: 4) end;

writeln;

for i: =1 to n-1 do begin

for j: =i+1 to n do begin

if a[j]> a[i] {po ybuvan} then

begin p: =a[i]; a[i]: =a[j]; a[j]: =p end;

end;

for j: =1 to n do write(a[j]: 4);

writeln

end;

writeln;

for i: =1 to n do begin

write(a[i]: 4); end;

readln;

end.

2) метод поплавка

program ff;

uses crt;

const n=15;

var a: array [1..n] of integer;

i, j, p: integer;

begin

clrscr;

writeln(' massiv');

for i: =1 to n do begin

a[i]: =random(40);

write(a[i]: 4) end;

writeln;

writeln('sortirovka');

for i: =1 to n-1 do begin

for j: =1 to n-i do begin

if a[j]< a[j+1] {po ybuvan} then

begin p: =a[j]; a[j]: =a[j+1]; a[j+1]: =p end

end;

for j: =1 to n do write(a[j]: 4);

writeln

end;

writeln('posle cortirovki');

for i: =1 to n do write(a[i]: 4);

readln;

end.

Примеры составления блок – схем некоторых задач.

1) Найти четные элементы в одномерном массиве К(30). Организовать из найденных элементов отдельный массив (представлен фрагмент блок-схемы)

2) Найти максимальный элемент в одномерном массиве К(30) и его порядковый номер (представлен фрагмент блок-схемы)

3) В матрице А(6, 6) найти максимальный и минимальный элементы с указанием их номеров и среднее арифметическое значение всех ее элементов. Элементы матрицы задать с помощью генератора случайных чисел. Заданную матрицу распечатать.

4) В массиве А(50) найти минимальный элемент в каждом десятке элементов. Заданный массив распечатать.