var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
До двадцяти п'яти додати різницю чисел тринадцяти відняти сім і поділити на два.
Const max=24;
var M:array[1..max] of integer;
i,j,num:byte;
X:integer;
procedure readArray();
var i:byte;
begin
Write('Введите длину массива M');
Readln(num);
for i:=1 to num do begin
Write('M[',i,']=');
Readln(M[i]);
end;
Writeln();
end;
begin
readArray();
Writeln('Задача: Найти количество элементов, модуль которых меньше X');
Write('Введите X=');
Readln(X);
j:=0;
for i:=1 to num do
if Abs(M[i]) < X then
j:=j+1;
Writeln();
Writeln(j, ' элементов, модуль которых меньше ',X);
end.
