Решить на Паскале. Для массива T(m) найти число элементов, больших предыдущего элемента, а для тех, которые меньше, найти их среднее арифметическое.

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

program CountElements;
var
T: array[1..10] of Integer;
i, countMore, countLess, sumLess: Integer;
averageLess: Real;
begin
countMore := 0;
countLess := 0;
sumLess := 0;

// Заполнение массива
writeln('Введите элементы массива T:');
for i := 1 to 10 do
begin
write('T[', i, '] = ');
readln(T[i]);
end;

// Подсчет элементов, больших предыдущего и вычисление среднего для элементов, меньших предыдущего
for i := 2 to 10 do
begin
if T[i] > T[i-1] then
countMore := countMore + 1
else
begin
countLess := countLess + 1;
sumLess := sumLess + T[i];
end;
end;

// Вывод результатов
writeln('Количество элементов, больших предыдущего: ', countMore);
if countLess > 0 then
begin
averageLess := sumLess / countLess;
writeln('Среднее арифметическое элементов, меньших предыдущего: ', averageLess:0:2);
end
else
writeln('Нет элементов, меньших предыдущего.');
end.