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

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

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

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

Листинг программы

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

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

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

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

6 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы