По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 пример выходных данных: |ab|=10.0 пользуясь формулой: аб= корень из ((х1-х2)^2+(y2-y1)^2)

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
  var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
  Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.

Пример
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5

1. 
var A: array [1..10] of integer;
i, sum, k: integer;
begin
for i:=1 to 5 do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to N div 2 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=5 to 10 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.

2. const: N={количество элементов массива}; 
var A: array [1..N] of integer;
i, sum, k: integer;
begin
for i:=1 to N do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to (N div 2) do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=(N div 2) to N do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.
 

1. пример линейного алгоритма: решение алгебраического примера, типа: 2+ (9-5)*(3+1).
план действий:
1)вычитание в скобках
2)сложение в скобках
3)умножение
4) сложение

2. пример разветвляющего алгоритма:
отрывок из сказки Пушкина: "пойдет налево - песнь заводит, направо - сказку говорит"
возникают две ветви в зависимости от условия.
условие, например - "пойдет налево".
если да, то действие - песнь заводит.
если нет - то сказку говорит.

3. циклический алгоритм: наполнить стакан водой с десертной ложечки.
цикл будет повторяться до тех пор, пока стакан не наполнится водой.