Описать процедуру, которая определяет, есть ли в очереди хотя бы один элемент, который равен следующему за ним - Free Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Описать процедуру, которая определяет, есть ли в очереди хотя бы один элемент, который равен следующему за ним»

textual
Листинг программы
Program PABCP;
 
var
A : array [1..50] of integer;
 
// ТУТ НАША ФУНКЦИЯ
 
begin
 
// ТУТ ЗАПОЛНЯЕМ МАССИВ
 
if (nextInLine() = true) then begin
writeln('Есть такой элемент');
else begin
writeln('Таких элементов нет');
end;
 
end.

Объяснение кода листинга программы

  1. Создаётся массив из 50 элементов типа integer с именем A.
  2. В функции nextInLine() происходит проверка, есть ли в очереди хотя бы один элемент, который равен следующему за ним. Функция возвращает true, если условие выполняется, и false в противном случае.
  3. Если в функции nextInLine() вернулось значение true, то выводится сообщение Есть такой элемент.
  4. Если в функции nextInLine() вернулось значение false, то выводится сообщение Таких элементов нет.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы