Поделитесь своими знаниями, ответьте на вопрос:
Составить прогу, которая вычисляет среднюю скорость катера по результатам измерения в 6 пунктах. ( в массиве констант 87км/ч, 68 км/ч, 82, 7 км/ч, 91 км/ч, 86 км/ч, 67, 5 км/ч составьте, , буду признателен.
"Школьный вариант":
const
N = 6;
var
i: integer;
ar: array[1..N]of real;
s: real;
begin
s := 0;
for i := 1 to N do
begin
read(ar[i]);
s := s + ar[i];
end;
write(s / 6);
end.