Не могу понять алгоритм решения задачи.

[Антон18]

Ну один из отвечающих так и написал, что это счетчик. а вы опять со мной в спор хотите вступить или грязью облить? Вот вам цитата.

Сообщение от newerow1989

Счетчик обнуляем.

[Serge_Bliznykov]

с замечаниями p51x полностью согласен.

дополню.

BEGIN{в процеесе просмотра задаем новые указания программе}

это ещё что за комментарий?! Что Вы имели в виду?
тут BEGIN - просто начало процедурного блока (в цикле FOR выполняется несколько команд, расположенных между BEGIN (начало блока) и END (конец блока)


Антон18, поймите, что программа - это указание компьютеру, что нужно делать. Паскаль очень простой, нужно просто чуть-чуть знать английский.
и тогда
WRITE() - это вывести
READ() прочитать
FOR I := 1 ТО N DO цикл ДЛЯ переменной I от 1 до N (с шагом 1) делать ....
IF если
THEN тогда

[p51x]

Вот вам цитата.

Счетчик пар или количество элементов, а не счетчик массива. Это разные понятия. У вас же буханки хлеба на полке магазина и номер этой полки в магазине разные вещи?

а вы опять со мной в спор хотите вступить или грязью облить?

Пруфы будет или еще один пустобрех?

[Serge_Bliznykov]

Сообщение от Антон18

Ну один из отвечающих так и написал, что это счетчик.

точно счётчик пар.
Это переменная, которая нужна для подсчёта.

позволю себе процитировать себя же:

Сообщение от Serge_Bliznykov

вот счётчик (подсчёт количества) и хранится в переменной K
вначале там ноль (K:=0; ) - т.к. вначале обнуляем счётчик.

Сообщение от Антон18

а вы опять со мной в спор хотите вступить или грязью облить? Вот вам цитата.

Антон, Вы очень неправильно всё воспринимаете.
Никто Вас обижать не собирается.
За то, что Вам показывают на ваши ошибки, нужно не обижаться, а благодарить.

[Антон18]

Сообщение от Serge_Bliznykov

За то, что Вам показывают на ваши ошибки, нужно не обижаться, а благодарить.

Вы не читали ответ этого ответчика, у которого написано на аватарке "Профессионал"? Мне еще за это благодарить надо? И за что же мне его благодарить? Алгоритм программы я так и не понял, а грязью меня полили.

[Serge_Bliznykov]

отбросьте эмоции. Вы слишком нервничаете.
никто вас грязью не поливал.

Алгоритм программы я так и не понял

А вот это очень странно и плохо.
странно, потому что программа простенькая очень.

А Вы собираетесь дальше разбираться или нет?

[Антон18]

Не пойму зачем вообще писать эту строку К := 0;
Вот к примеру еще программка, тут нету никого обнуления счетчика, сразу идет цикл

CONST М = 100;
VAR  MAS : ARRAY[1..M] OF INTEGER;
I, K, NEW, N : INTEGER;
BEGIN
WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');
READLN(N);
WRITELN('ВВЕДИТЕ ', N,' ЭЛЕМЕНТОВ МАССИВА');
FOR I := 1 TO N DO
READ(MAS[I]);
WRITELN;
NEW := MAS[N];
К := N;
FOR I := N DOWNTO 1 DO
IF MAS[I]>NEW THEN
BEGIN
К := I;
NEW := MAS[I]
END;
MAS[K] := MAS[1];
MAS[1] := NEW;
FOR I := 1 TO N DO
WRITE(MAS[I] : 4);
WRITELN
END.

Не понятно зачем этот кусок программы

BEGIN
WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');
READLN(MAS[I]);
END;

Перед ним шел цикл, т.е. программа начала просматривать элементы, дальше
логичней было бы написать сразу IF MAS[I] = MAS[I+1] THEN К := K+1;, то есть
если при просмотре программа находит равный элемент, то записать в счетчик и вывести на экран writeln (k). вот это было бы проще и понятней.

[p51x]

Не пойму зачем вообще писать эту строку К := 0;

Потому что ЕСЛИ НЕТ ПАР, то ОТВЕТ = 0. ЕСЛИ ЕСТЬ ОДНА ПАРА, то ОТВЕТ = 1 и т.д. Ну это же даже первоклашки умеют.

Вот к примеру еще программка, тут нету никого обнуления счетчика, сразу идет цикл

Потому что это другая задача и другой алгоритм.

Перед ним шел цикл, т.е. программа начала просматривать элементы, дальше
логичней было бы написать сразу IF MAS[I] = MAS[I+1] THEN К := K+1;

Не перед ним, а в цикле этот блок и выполняется. Считываются элементы в массив. Или вы думаете компьютер угадает какие элементы вы хотели?

то есть
если при просмотре программа находит равный элемент, то записать в счетчик и вывести на экран writeln (k). вот это было бы проще и понятней.

Я вас удивлю, но так и происходит...

[Антон18]

На мой взгляд эта часть кода лишняя

BEGIN
WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');
READLN(MAS[I]);
END;

[p51x]

Вот у меня массив из 10 чисел. Сколько в нем двоек? Можете ответить? Или все-таки попросите сначала сообщить вам эти 10 чисел?
Откуда компьютер узнает элементы массивы, если вы их ему вводить не будете?