Перевод алгоритма в ПАСКАЛЬ-программу

max = 1, tek = 1 max := 1; tek := 1;

для i от 2 до 10 for i := 2 to 10 do

если A[i] = A[i-1] if A[i] = A[i-1]

то tek = tek + 1 then tek := tek + 1

иначе если tek>max то max=tek else begin

if tek>max then max:=tek;

tek = 1 tek := 1;

end;

если tek > max то max = tek if tek>max then max:=tek;

Вывод (max) writeln (max);

Выше представлены алгоритм и его запись на языке программирования ПАСКАЛЬ. Очевидно, что при выполнении этой работы следует соблюсти следующие нехитрые правила:

1) Все = заменить на :=

2) Ключевые слова заменить их аналогами

для если то иначе вывод

for if then else writeln

3) В конце операторов поставить символ ";"

4) Наиболее "сложное" правило:

в случае, если после для, то или иначе в алгоритме выполняются

два или более действия, поставить "операторные скобки" begin-end, которые в алгоритме подразумеваются сдвигами

5) все переменные и массивы объявить в программе, а исходные данные - ввести.

в результате чего и получаем текст программы:

program MaxSucc;

var

a : array [1..10] of integer; {Объявление массива a из 10 элементов}

i,tek,max : integer;

begin

writeln('Вводите 10 чисел');

for i:=1 to 10 do readln(a[i]); {Ввод одномерного массива }

max := 1; tek := 1;

for i := 2 to 10 do

if A[i] = A[i-1] {Если идут подряд}

then tek := tek + 1 {то считаем их}

else begin {иначе}

if tek>max then max:=tek; {запоминаем максимальный}

tek := 1; {начинаем счет сначала}

end;

if tek>max then max:=tek;

for i:=1 to 10 do write(a[i],' '); {Вывод одномерного массива}

writeln;

writeln(' Ответ = ',max); {Вывод результата}

end.