Первая, вторая и третья космические скорости равны 7,9 км/с , 11,2 км/с, 16,7 км/с. выразите эти скорости в метрах в секунду и в километрах в час.

Вметрах в секунду: 7,9 км/с * 1000м/км = 7900 м/с 11,2 км/c * 1000м/км = 11200 м/c 16,7 км/c * 1000м/км = 16700 м/c  в километрах в час: 7,9 км/c * 3600 сек/час = 28440 км/час 11,2 км/c * 3600 сек/час = 40320 км/час 16,7 км/c * 3600 сек/час = 60120 км/час

type arr = array [1..5] of integer; //тип массива

const

  a: arr = (-3, 100, 10, 12, 18); {задаем типизированную константу - массив и сразу же присваиваем элементам значения}

procedure readarr(a: arr); {процедура для чтения массива}

  function summa : integer; {вложенная в процедуру функция для вычисления суммы элементов (входной в процедуру параметр виден и в функции)}

  var

    s, i: integer;

  begin //начало функции

    s: = 0;

    for i: = 1 to 5 do s: = s + a[i]; //вычисление суммы

    summa: = s; //присваиваем значение s функции

  end; //конец функции

begin //начало процедуры

  write(summa); //выводим значение функции

end; //конец процедуры

begin //начало программы

  readarr(a);

end. //конец программы

если только так. я использовал процедуру, в которой входным параметром является заданный массив и в процедуре - вложенную функцию, вычисляющую сумму элементов. а вообще непонятно, зачем тут еще и procedure, ведь вполне можно обойтись одной функцией.