PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a[a.IndexMin] := Trunc(a.Average);
a.Println
end.
Пример
n= 13
-18 -31 14 -3 -8 -11 29 -47 -8 38 7 31 41
-18 -31 14 -3 -8 -11 29 2 -8 38 7 31 41
№2
begin
var n := ReadInteger('n=');
var a := ArrRandom(2 * n, -50, 50);
a.Println;
var (im, jm, rm) := (-1, -1, -1);
for var i := 0 to n - 1 do
for var j := 1 to n - 1 do
if i <> j then
begin
var r := Sqr(a[2 * j] - a[2 * i]) +
Sqr(a[2 * j + 1] - a[2 * i + 1]);
if r > rm then (im, jm, rm) := (i, j, r)
end;
Print(im + 1, jm + 1)
end.
Пример
n= 7
45 22 17 43 39 40 5 -19 -18 -47 27 -25 14 20
3 5