Дано 15 целых чисел. определить, сколько из них больше предыдущего и последующего чисел. найти сумму цифр каждого такого числа.
Выполнить в среде разработки паскаль

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program CountNumbers;
var
numbers: array[1..15] of integer;
i, count, sum: integer;
begin
count := 0;
// Ввод чисел
writeln('Введите 15 целых чисел:');
for i := 1 to 15 do
begin
readln(numbers[i]);
end;
// Подсчет чисел, больших предыдущего и последующего
for i := 2 to 14 do
begin
if (numbers[i] > numbers[i-1]) and (numbers[i] > numbers[i+1]) then
begin
count := count + 1;
sum := 0;
// Подсчет суммы цифр числа
while numbers[i] <> 0 do
begin
sum := sum + (numbers[i] mod 10);
numbers[i] := numbers[i] div 10;
end;
writeln('Число ', numbers[i], ' больше предыдущего и последующего. Сумма цифр: ', sum);
end;
end;
writeln('Количество таких чисел: ', count);
end.

Программа сначала вводит 15 целых чисел, затем определяет, сколько из них больше предыдущего и последующего чисел, и вычисляет сумму цифр каждого такого числа.