Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Массивы.

Объявление переменной массива происходит в разделе var. При этом используется зарезервированное слово array, указывается тип массива и его размерность перечислением индексов, а также объявляется тип данных в массиве.

Пример 1:

Пример 2:

var masiv: array ['a'..'z'] of integer;

Для обращения к элементу массива в Pascal-программе указывается имя массива и в квадратных скобках индексы элемента.

Пример 1:

a [2, 4]

а) ввести значение:

read (A[2, 4]);

б) изменить значение:

A[2, 4]: =5;

в) сообщить значение:

write (A[2, 4]);

Пример 2:

masiv ['b'];

masiv['b']: =47*24;

Задача ввода элементов массива.

а) линейного:

program vvod;

var A: array [1..10] of integer;

i: integer;

begin

for i: =1 to 10 do

read (A[i]);

end.

б) двумерного:

program vvod;

const n=5; m=7;

var A: array [1..n, 1..m] of real;

i, j: integer;

begin

for i: =1 to n do

for j: =1 to m do

read (A[i, j]);

end.

Задача 2: найти минимальный элемент в массиве:

program min;

const n=10;

var i: byte;

a: array [1..n] of real;

min: real;

begin

for i: =1 to n do read (A[i]);

min: =A[1];

for i: =1 to n do

if min> A[i] then min: =A[i];

write (min);

end.