Имеет ли смысл вычисление значения высоты попадания мячика в мишень с точностью 13 знаков после запятой? до какой точности целесообразно округлить полученное значение?

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

На паскале: program program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin         result : = 0;         write('введите значение n (не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   write('введите значение ', i, ' элемента массива: ');                   readln(array1[i]);                 end;                 begin                   writeln('массив, размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');             writeln;                 end;         for i: =1 to n do                 begin                   k : = 0;                   for j: =1 to n do                   if array1[i] = array1[j] then k : = k + 1;                   if k = 1 then result : = result + array1[i];                 end;         writeln('сумма уникальных элементов массива = ', result); end.