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

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

Uses WinCrt;. Const n = 5; {задание размера массива именованной константой}

Const n = 5; {задание размера массива именованной константой}

Type TMass=Array [1..n, 1..n] Of Integer; {описание нового типа}

Var i, j: Word;

summa, v_min, v_max: Integer;

massiv: TMass;

Function Summa_max(nn: Integer; AA: TMass): Integer;

Var i, max_1, max_2: Integer;

Begin

max_1: =AA[1, 1];

For i: =2 To nn Do

If (AA[i, i]> max_1)

Then max_1: =AA[i, i];

max_2: =AA[1, nn];

For i: =2 To nn Do

If (AA[i, nn-i+1]> max_2)

Then max_2: =AA[i, nn-i+1];

Summa_max: =max_1+max_2;

End; {функции Summa_max}

Begin {головной программы}

Randomize; {запуск генератора случайных чисел}

WriteLn('Лабораторная работа №7_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

WriteLn('Задайте диапазон случайных чисел');

Write('v_min=');

ReadLn(v_min);

Write('v_max=');

ReadLn(v_max);

For i: =1 To n Do {заполнение массива случайными числами}

For j: =1 To n Do

massiv[i, j]: =Random(v_max-v_min + 1) + v_min;

WriteLn;

WriteLn('Исходный массив: ');

For i: =1 To n Do {вывод на экран исходного массива}

Begin

For j: =1 To n Do

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

WriteLn;

End;

WriteLn;

summa: =Summa_max(n, massiv);

WriteLn('Сумма максимальных элементов диагоналей: ', summa);

End.

3.5. На языке Си:

#include < stdio.h>

#include < conio.h>

#include < math.h>

#include < time.h>

// прототипы функций

void vorm_mass(int nn, int mass_max, int mass_min, int mass[nn][nn]);

int summa_max(int nn, int mass[nn][nn]);

Int main()

{

Int i, j, n, massiv_min, massiv_max, summa;

printf(" \nЛабораторная работа №7_1");

printf(" \nВариант №0");

printf(" \nПО-11-1");

printf(" \nПупкин Василий\n");

printf(" \nВведите нижнюю границу диапазона: ");

scanf(" %d", & massiv_min);

printf(" \nВведите верхнюю границу диапазона: ");

scanf(" %d", & massiv_max);

printf(" \nВведите размер массива: ");

scanf(" %d", & n);

int massiv[n][n];

printf(" \nИсходный массив: \n");

Vorm_mass(n, massiv_max, massiv_min, massiv);

for (i=0; i< n; i++)

{

for (j=0; j< n; j++)

printf(" %5d", massiv[i][j]);

printf(" \n");

}

printf(" \n");

summa = summa_max(n, massiv);

printf(" \nСумма максимальных элементов диагоналей: %d", summa);

Return 0;

}

//описание функций

// 1. формирование массива

void vorm_mass(int nn, int mass_max, int mass_min, int mass[nn][nn])

{

Int i, j, m;

time_t t; // текущее время для инициализации

// генератора случайных чисел

srand((unsigned) time(& t)); // инициализация генератора

// случайных чисел

m = mass_max-mass_min + 1;

// получение случайного числа в диапазоне

// от mass_min до mass_max

for (i=0; i< nn; i++)

for (j=0; j< nn; j++)

mass[i][j]=rand()% m + mass_min;

}

// 2. определение суммы максимальных элементов диагоналей массива

int summa_max(int nn, int mass[nn][nn])

{