Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
Популярные вопросы