Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.
1.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var max_1:=a.Max;
writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
var max_2:=a.Where(x->x<>max_1).Max;
writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.
Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18
2.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var sr:=a.Average;
writeln('Среднее = ',sr);
var m:=a.MinBy(x->abs(x-sr));
writeln('Искомый номер = ',a.IndexOf(m)+1);
end.
Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6
В первом не хватает-13,14, а во втором -1,2,3,4,5,6,7,9,11,12,13,14,15,16.
Путь А , B , F = 7 . От пути А , С , дорога в F не ведет .
Путь от А , F=9. Следовательно кратчайший путь от A в F = 7
Ответ ; 2
А что соединить? Ничего нет!