велосипед едет с постоянной скоростью Найдите скорость велосипеда если расстояние он проедет за минуту​

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

код программы:

program Boat;

var A: integer;

var B: integer;

var C: integer;

var D: integer;

var E: integer;

var F: integer;

var diff_1D: integer;

var diff_2D: integer;

var diff_3D: integer;

var max: integer;

var max_ident: integer;

begin

   writeln();

   writeln('1 день. Со скольки до скольки часов? (через пробел):');

   readln(A, B);

   diff_1D := B - A;

   

   writeln('2 день. Со скольки до скольки часов? (через пробел):');

   readln(C, D);

   diff_2D := D - C;

   

   writeln('3 день. Со скольки до скольки часов? (через пробел):');

   readln(E, F);

   diff_3D := F - E;

   

   if diff_1D > diff_2D then begin

   max := diff_1D;

   max_ident := 1

   end

   else begin

   max := diff_2D;

   max_ident := 2

   end;

   

   if max < diff_3D then begin

   max := diff_3D;

   max_ident := 3

   end;

   writeln('максимальное время на лодке: ', max, ' часов');

   writeln('максимальное время прибывания было на ', max_ident, ' день');

   

   

end.