Пусть дано натуральное число n и вещественные числа a1, a2, a3,,…an, которые вводятся по одному. Найти |a1-an|.
Паскаль ?)
да
uses math;
var a1, an: real;
i, n: integer;
begin
read(n);
read(a1);
for i := 2 to n - 1 do read();
read(an);
writeln(abs(a1 - an));
end.