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.
49,6875 (надеюсь правильно ответил)
Свойства книги:
Ее можно читать, когда тебе скучно. она может порваться, если с ней плохо обращаться.
begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
Слева Справа
Вода Кислород
Минеральные вещества Зрелый лук
Углекислый газ
Солнце