Арифметические действия над элементами массива

Задание 2. Вводятся данные о расходе топлива на 100 км пробега восьми автомобилей. Технологи усовершенствовали автомобили, у которых расход топлива превышал 7 л на 100 км, эти автомобили стали расходовать на 1,5 л меньше. Выведите
новый расход топлива

var r:array[1..8] of real;
      n:integer;
 begin
 writeln(‘Введите данные о расходе топлива на 100 км для 8-и автомобилей:’);
 for n:=1 to 8 do ….(r[n]);
 writeln(‘Уменьшенный расход:’);
 for n:=1 to 8 do
                       if r[n]>7 then  writeln(r[n]-1.5);
 end.
Проверьте работу своей программы, вводя данные
Ввод:
7.4
7
6.8
5.9
6.4
9.1
7.6
8.2
Вывод:
Уменьшенный расход топлива:
5.9
7.6
6.1
6.7

ИГРАЕМ  

Задание 3. Технологи продолжили работу над совершенствованием автомобилей. В результате их работы автомобили, у которых расход топлива  в самом начале превышал 6 л на 100 км, стали расходовать в 1,5 л меньше.
Ввод:
7.4
7
6.8
5.9
6.4
9.1
7.6
8.2
Вывод:
Новый расход топлива:

4,933333
4,666667
4,533333
4,266667
6,066667
5,066667
5,466667

ИГРАЕМ  

Задание 4. Добавьте в предыдущую программу команды, которые будут считать и выводить количество автомобилей с расходом топлива меньше чем 6.5 л на 100 км.
Ввод:
7.4
7
6.8
5.9
6.4
9.1
7.6
8.2

Вывод:
Кол-во автомобилей с расходом меньше чем 6.5 - 2

Подсказка:
Для подсчёта количества нам надо пересмотреть все элементы, значит надо цикл for.
Надо считать только те элементы, которые меньше, чем 6.5. Значит нужен if.
Если нам этот элемент подходит, то мы количество увеличиваем на 1.
Затем вывести это количество.

ИГРАЕМ  

Задание 5. Добавьте в предыдущую программу команды, которые будут считать и выводить средний расход топлива только тех машин, которые на 100 км тратят меньше чем 6.5 л.
Ввод:
7.4
7
6.8
5.9
6.4
9.1
7.6
8.2
Вывод:
Кол-во автомобилей с расходом меньше чем 6.5 - 2
Среднее - 6,15