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

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

Пример кода на Паскале:

program ArrayAnalysis;
const
m = 5;
var
i, countBigger, countSmaller: integer;
sumSmaller, averageSmaller: real;
T: array [1..m] of integer;
begin
countBigger := 0;
countSmaller := 0;
sumSmaller := 0;
for i := 1 to m do
begin
write('Введите элемент T[', i, ']: ');
readln(T[i]);
if i > 1 then
begin
if T[i] > T[i-1] then
countBigger := countBigger + 1
else
begin
countSmaller := countSmaller + 1;
sumSmaller := sumSmaller + T[i];
end;
end;
end;
writeln('Число элементов, больших предыдущего элемента: ', countBigger);
if countSmaller > 0 then
begin
averageSmaller := sumSmaller / countSmaller;
writeln('Среднее арифметическое элементов, меньших предыдущего: ', averageSmaller:0:2);
end
else
writeln('В массиве нет элементов, меньших предыдущего.');
end.

Этот код запрашивает у пользователя ввод элементов массива T, затем находит количество элементов, больших предыдущего элемента, и среднее арифметическое для элементов, которые меньше предыдущего.