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

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

Текст программы. { Лабораторная работа N 7 Вариант N 31

PROGRAM KorrMas;

{ Лабораторная работа N 7 Вариант N 31

Обработка массива

А.Я.Умненькая, ст. гр. Я-007 }

TYPE

Massiv = array[1..13, 1..10] of integer;

Stroka = string[30];

CONST Quest1: Stroka='Задайте число строк массива';

Quest2: Stroka='Задайте число столбцов массива';

VAR A: Massiv;

M, N, I, j: integer;

Fin: file of integer;

Fout: file of text;

{ Процедура ввода размеров массива }

PROCEDURE InpMN(Txt: Stroka; MaxK: integer;

Var Kol: integer);

Begin

WriteLn; WriteLn(Txt);

Repeat

Readln(Kol);

If Kol> MaxKol then

Writeln('Можно не более ', MaxK, 'задайте снова');

until Kol< =MaxK;

End;

{ Процедура вывода массива в файл протокола }

PROCEDURE PrintMas(Txt: string; Var Mas: Massiv;

NStr, NKol: integer);

VAR i, j: integer;

Begin

Writeln(Fout, Txt);

For i: = 1 to NStr do

begin

For j: = 1 to Nkol do Write(Fout, Mas[I, j]: 7);

WriteLn(Fout);

end;

End;

{ Функция вычисления суммы четных элементов заданной строки массива }

FUNCTION Sum(Var Mas: Massiv; N, St: integer)

: integer;

VAR j, S: integer;

Begin

S: =0;

For j: =1 to N do

If not Odd(Mas[St, j]) then S: =S+Mas[St, j];

Sum: =S;

End;

BEGIN { Основная программа }

InpMn(Quest1, 13, M);

InpMn(Quest2, 10, N);

Assign(Fout, 'Umnik7.res');

ReWrite(Fout);

WriteLn(Fout, 'Сумма четных элем. в последний столбец');

Assign(Fin, 'D: \LAB1\DATI.BIN');

ReSet(Fin);

Seek(Fin, 32);

for i: =1 to M do

for j: =1 to N do Read(Fin, A[I, j]);

Close(Fin);

PrintMas (' Исходный массив', A, M, N);

for I: =1 to M do A[I, N]: =Sum(A, N, I);

PrintMas (' Обработанный массив', A, M, N);

Close(Fout);

END.

Содержимое набора данных UMNIK7.RES:

Сумма четных элем. в последний столбец

Исходный массив

9 8 0 -7 0 -5 7 -5 5

6 9 9 2 -2 -8 3 -8 -9

8 -4 -4 1 3 6 4 0 -5

4 1 -2 4 2 1 -2 -6 -5

-1 5 0 9 4 -3 -6 -691 885

-709 800 382 -396 -140 -841 923 368 -686

737 624 169 -610 458 -188 -423 126 355

Обработанный массив

9 8 0 -7 0 -5 7 -5 8

6 9 9 2 -2 -8 3 -8 -10

8 -4 -4 1 3 6 4 0 10

4 1 -2 4 2 1 -2 -6 0

-1 5 0 9 4 -3 -6 -691 -2

-709 800 382 -396 -140 -841 923 368 328

737 624 169 -610 458 -188 -423 126 410

Варианты заданий

Таблица 26. Варианты заданий лабораторной работы №7