Определить, сколько чисел больше своих «соседей» - Turbo Pascal
Формулировка задачи:
Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и последующего чисел.
Решение задачи: «Определить, сколько чисел больше своих «соседей»»
textual
Листинг программы
Const n=10;
Var A:array[1..n] of integer;
i,k:byte;
Begin
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;
For i:=2 to n-1 do
if (A[i]>A[i-1])and(A[i]>A[i+1]) then inc(k);
writeln(k);
End.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он предназначен для определения количества чисел, которые больше своих соседей.
Константа n определяет количество чисел в массиве A.
Переменная A представляет собой массив из n целых чисел.
Переменные i и k являются байтами (byte), они используются для чтения и записи значений в массив A.
Внутри первого цикла переменной i от 1 до n происходит чтение значений из массива A.
Во втором цикле переменной i от 2 до n-1 происходит проверка условия: если значение A[i] больше значения A[i-1] и A[i+1], то переменная k увеличивается на 1.
В конце программы выводится значение переменной k, которое показывает количество чисел, которые больше своих соседей.