Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
Program n1;
var a: array[1..10] of integer;
i: integer;
p: real;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write('произв. <10: ',p);
end.
FOR A=1 TO 15
тобишь, задаём промежуток значение для переменной А
Множество улиц
Множество городов
Множество о проспектах
Множество площадей
1111,2222,3333,4444,5555,6666,7777,8888,9999.