// PascalABC.NET 3.0, сборка 1128 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50).Println(','); Writeln('Минимальное отрицательное нечетное равно ', a.Where(x->(x<0) and Odd(x)).Min) end.
Тестовое решение: n= 15 -44,-27,40,6,-43,-19,-37,-8,-31,0,16,41,34,-26,17 Минимальное отрицательное нечетное равно -43
Var a:array[1..1000] of integer; i,min,n:integer; begin writeln('Введите количество элементов массива'); readln(n); for i:=1 to n do read(a[i]); if (a[i]<0) and (a[i] mod 2<>0) then min:=a[i]; for i:=1 to n do if (a[i]<0) and (a[i] mod 2<>0) and (a[i]<min) then min:=a[i]; if min=0 then writeln('Нечетных и отрицательных элементов в массиве нету') else writeln('Минимальный, нечетный, отрицательный элемент массива - ', min); end.
Каждая из компонент связности должна быть кликой (иначе говоря, каждые две вершины в одной компоненте связности должны быть связаны ребром). Если в i-ой компоненте связности вершин, то общее число рёбер будет суммой по всем компонентам связности:
Требуется найти максимум этого выражения (т.е. на самом деле - максимум суммы квадратов) при условии, что сумма всех ni равна N и ni - натуральные числа.
Если K = 1, то всё очевидно - ответ N(N - 1)/2. Пусть K > 1.
Предположим, n1 <= n2 <= ... <= nK - набор чисел, для которых достигается максимум, и n1 > 1. Уменьшим число вершин в первой компоненте связности до 1, а оставшиеся вершины "перекинем" в K-ую компоненту связности. Вычислим, как изменится сумма квадратов: Поскольку по предположению n1 > 1 (тогда и nK > 1), то сумма квадратов увеличится, что противоречит предположению о том, что на выбранном изначально наборе достигается максимум. Значит, максимум достигается, если наименьшая по размеру компонента связности - изолированная вершина. Выкинем эту компоненту связности, останутся K - 1 компонента связности и N - 1 вершина. Будем продолжать так делать, пока не останется одна вершина, тогда получится, что во всех компонентах связности кроме последней должно быть по одной вершине.
Var a:array[1..100,1..100] of integer; c:array[1..20,1..20] of real; b:array[1..20,1..20] of real; i,j,n,k:integer; t:real; r:integer; begin randomize; t:=0; Writeln('Введите порядок матрицы: '); readln(n); for i:=1 to n do for j:=1 to n do begin a[i, j] := random(10); end; for i:=1 to n do for j:=1 to n do begin b[i,j]:=1/i+j-1; end; for i:=1 to n do for j:=1 to n do begin for k:=1 to n do begin t :=t+a[i,k]*b[k, j]; end; c[i,j]:=t; t:=0; end; for i:=1 to n do begin for j:=1 to n do begin write(' ',c[i,j]:2:2); end; Writeln; end;
вершин, то общее число рёбер будет суммой по всем компонентам связности:
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50).Println(',');
Writeln('Минимальное отрицательное нечетное равно ',
a.Where(x->(x<0) and Odd(x)).Min)
end.
Тестовое решение:
n= 15
-44,-27,40,6,-43,-19,-37,-8,-31,0,16,41,34,-26,17
Минимальное отрицательное нечетное равно -43