попробуй сделать "млекопитающие России"
1 хищные
1.1 собачьи
1.1.1 волк
1.1.2 шакал
1.1.3 песец
1.1.4 лиса
1.2 медвежьи
1.2.1 бурый медведь
1.2.2 белый медведь
и так далее
Ответ:
2
Объяснение:
Алгорим тут, мягко говоря, странноват.
t :=a[i];
a[i-1] := a[0];
a[0] := t
Никакого t здесь не нужно, достаточно написать
a[i-1] := a[0];
a[0] := a[i]
В цикле, начиная с третьего по порядку элемента, производится его сравнение с самым первым элементом (вначале его значение равно 5).
Присваивание a[i-1] := a[0] в теле цикла никак на a[0] не влияет и на сравнение не влияет, поэтому забудем о нем.
Таким образом, существенным оказывается лишь факт попадания на место a[0] элемента, меньшего a[0] и каждое такое попадание увеличивает счетчик с на 1. Первонаяальное значение с нулевое, так что с отражает количество попаданий в a[0] элементов, меньших его значения. Анализ значений элементов с a[2] по a[9] показывает, что сначала в a[0] попадает 2 (2 < 5), а затем 0 ( 0 < 2). Поэтому с = 2.
Const
max_length = 10;
type
arr = array [0..max_length, 0..max_length] of byte;
var
a: arr;
i, j, n, m, k, x, y: byte;
c: char;
f: text;
//procedure PrintMatrix(a: arr);
//begin
// for var i := 0 to max_length do
// begin
// writeln;
// for var j := 0 to max_length do
// write(a[i, j], ' ');
// end;
// writeln;
//end;
procedure labirint(i, j: byte);
begin
if (i <= n) and (i >= 0) and (j <= m) and (j >= 0) and (a[i, j] = 0) then begin
a[i, j] := 1;
k := k + 1;
labirint(i, j - 1);
labirint(i, j + 1);
labirint(i - 1, j);
labirint(i + 1, j);
end;
end;
begin
Assign(f, 'input.txt');
Reset(f);
readln(f, n, m);
for i := 0 to n do
begin
for j := 0 to m do
begin
read(f, c);
case c of
'x': a[i, j] := 2;
'.': a[i, j] := 0;
'+':
begin
x := i;
y := j;
a[i, j] := 0;
end;
end;
end;
readln(f);
end;
Close(f);
// PrintMatrix(a);
labirint(x, y);
writeln(k);
// PrintMatrix(a);
end.
инструментарий для дебага оставила. Проверяйте значение символов перед стартом