Всмысле полное, моделируешь дорогу, если тебе по таблице не удобно, там все видно будет. Самый короткий 4
AE-EC-CD
<span><span>Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i]<M[Min] then Min:=i;
Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале</span></span>
Для того, чтобы нумерация строк в таблице выполнялась автоматически, следует выполнить несколько простых действий:
1. Выделяем ячейки, в которых нам необходима нумерация, в блок.
2. Переходим на ленту меню Главная, в область Абзац.
3. Выбираем создание нумерованного списка (1. 2. 3. …) при помощи кнопки Нумерация 
4. Получаем таблицу со столбцом, в котором нумерация строк будет выполняться автоматически при удалении или добавлении строк в таблицу.
Можно сказать, что мы превратили столбец № п/п в обыкновенный нумерованый список, который будет автоматически расширяться или уменьшаться по количеству строк в таблице. При этом нумерация строк будет выполняться автоматически.
Алг Среднее арифметическое (арг цел a, арг цел b, рез вещ sqrt, рез вещ module)
дано | *честно не знаю как сделать,что даны два числа*
надо | sqrt = (a*a + b*b)/2
module = abs(a*b)/2
нач
| ввод a
| ввод b
| sqrt:=(a*a + b*b)/2
| module:= abs(a*b)/2
| вывод | "Среднее арифметическое квадратов ", sqrt
| вывод | "Среднее арифметическое модулей ", module
кон
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.
Пример ввода:
-1.1
Пример вывода:
1.21