1. F14 + G7.
2. B13 - 25.
3. $E7 + D$5.
4. D5 + $G$8.
5. C4 = $A$4 + 100 = 103.
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Немного непонятно, о каком именно коэффициенте сопротивления идёт речь (если задача действительно по информатике, а не по физике). По размерности подходит такое выражение для силы сопротивления (я буду считать, что дано именно оно, плотность воздуха ρ примем равной 1,25 кг/м3):
Уравнение движения парашютиста:
Для решения задачи создадим таблицу, в которой будут столбцы: время, координата, скорость и ускорение. Со временем проще всего, это последовательные шаги, начиная с 0 с с некоторым шагом t. Затем вычисляем по формуле ускорение, скорость (изменение скорости есть a * t), и координату (изменение координаты есть v * t). Когда парашютист достигнет земли, его координата не должна меняться, это можно сделать при помощи функции ЕСЛИ.
Получившийся файл Excel и графики приложены к ответу.