Дано програму: var a: array [1.8] of Integer, Mk: Integer,
begin {... } M= a[1]);
For k = 2 to s do If M< a[k] Then M = a[k], [...]
Скільки разів буде виконаний оператор M = a[k] для масиву (3, 8, 7, 9,4 10, 2, 12)?​

В этой программе множество ошибок.
1. В заголовке процедуры procedure summ(plus:string;minus:string); параметры plus и minus описаны, как строки. В теле процедуры обоим параметрам присваивается значение, равное соединению строк a и b, а вовсе не сумма чисел и их разность, как требует условие.
2. Поскольку параметры не имеют описателя var, после выхода из процедуры их исходное значение не изменяется.
3. Операторы Readn(b) дважды выполняют присваивание переменной b, а переменная a значения не получает.
4. Вызов процедуры summ неверен, поскольку вместо пары строковых фактических параметров используется вызов процедуры Writen, что синтаксически неверно.

2,0,334

Объяснение:

Выпишем первые 10 строк и посчитаем количество символов a, b и c

i                          a b c

1 acac                 2 0 2

2 abcabc                2 2 2

3 accacc                2 0 4

4 abccabcc        2 2 4

5 acccaccc        2 0 6

6 abcccabccc        2 2 6

7 aa        2 0 8

8 abab       2 2 8

9 aa        2 0 10

10 abab 2 2 10

Как видим, a=2 и не изменяется, b принимает значение 0 для нечетных строк и 1 для четных строк, с принимает значение i+1 для нечетных строк и i для четных.

333 - нечетное число, поэтому b=0, а c=333+1=334