123456789101112131415161718192021222324252627var c: array[1..10000] of integer; a, b, n, i, max, max1, max2, p, k, v, m: integer; begin randomize; max := -10000; Readln(a, b, n); for i := 1 to n do begin c[i] := random(b - a + 1) + a; Write(c[i], ' '); end; if ((n mod 2) = 0) then k := n div 2 else k := n div 2; for p := 1 to k do begin m := c[p] + c[n - p + 1]; if ((m mod 2) = 0) and (m >= max) then begin max := m; max1 := p; max2 := n - p + 1; inc(v); end; end; Writeln(' '); if (v = 0) then Writeln(0, ' ', 0) else Writeln(max1, ' ', max2);end.<span>
</span>
Program kol_vo_elementov;
var a:real;
begin
writeln('Введите число');
readln(a);
a:=sqr(a);
writeln('a=',a);
end.
Начинаем с пунта А, можно взять как верхний ряд букв, так и левый ряд. Я возьму верхний.
Смотрим какие цифры под буквой А. Это 3, 9, 5. Цифра 3 стоит в ряду с буквой В, цифра 9 в ряду с буквой С, цифра 5 в ряду с буквой D. Эти цифры означают расстояние между этими пунктами.
Будет удобнее решать, если построить схему.