Дан одномерный массив из 25 целых случайных чисел из диапазона [-100; 50] решите .

program helloworld;

var n: array [1..25] of integer;

var i: smallint;

begin

      for i : = 1 to 25 do

              n[i] : = -100 + random(150);

      for i : = 1 to 25 do

          if n[i] > 0 then writeln(n[i]);

end.

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

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.