Мне нравится А и В
Мне ¬ нравится А ∧ В
Мне нравится А ∧ ¬ В
Мне ¬ нравится В V ¬ нравится А
Мне ¬ нравится А
Мне ¬ нравится В. ∧ нравится А
var
a : array of real := (3.2,2.5,0,0.7,0,-1.3,4.3,-2.9,0,-0.4,-5.2,3.4);
n : integer;
s : real;
begin
writeln('массив a = ', a);
write('номера элементов равных 0: ');
for var i :=0 to a.Length-1 do begin
if a[i] = 0 then write(' ', i);
if a[i] > 0 then begin
n += 1;
s += a[i];
end;
end;
writeln;
writeln('s = ', s/n);
end.
// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var c := ArrRandom(7, -5, 5);
c.Println;
var p := ArrRandom(7, -50, 50);
p.Println;
var s2 := p.Sum;
if c.All(t -> t < s2) then
begin
var k := c.Cartesian(p, (i, j)-> (i, j, i / (j + i * i))).MaxBy(t -> t[2]);
var i := c.IndexOf(k[0]) + 1;
var j := p.IndexOf(k[1]) + 1;
Println($'Максимум {k[2]:g6} при i={i}, j={j}')
end
end.
<span>При нахождении наибольшего общего делителя отрицательные числа можно заменить их абсолютными величинами, то есть, НОД(−585, 81, −189)=НОД(585, 81, 189). Разложения чисел 585, 81 и 189 на простые множители имеют соответственно вид585=3·3·5·13, 81=3·3·3·3 и 189=3·3·3·7. Общими простыми множителями этих трех чисел являются 3 и 3. Тогда НОД(585, 81, 189)=3·3=9, следовательно,НОД(−585, 81, −189)=9.</span>Ответ:<span>НОД(−585, 81, −189)=9.</span>