Объяснение:
Возводить в квадрат надо не отдельно правую и левую части, а разность между левой и правой частями системы (по каждому уравнению отдельно). Потом эти квадраты разностей просуммировать.
Получится функция квадратов невязок системы, которую и нужно минимизировать Поиском решения.
Поскольку эта функция является сумой квадратов, она не отрицательная для всех значений аргументов, а ее минимальное значение == 0.
Поэтому минимизировать функцию квадратов невязок системы означает - найти такое значение переменных, при которых значение функции невязок равняется 0. Если удастся найти такое решение, то это и будет решением системы.
У Вас на картинках выписана эта функция, но не показано, как Вы применяете Поиск решения для минимизации этой функции.
Program z1;
const n=20; // значение n можно изменить
var i,max,min,p,imin,imax:integer;
a:array[1..n] of integer;
begin
min:=10000;
for i:=1 to n do begin
a[i]:=random(51);
if(a[i] > max) then begin max:=a[i]; imax:=i; end; // 1-ый пункт
if(a[i] < min) then begin min:=a[i]; imin:=i; end; // 2-ой пункт
write(a[i]:3);
end;
p:=a[1]; // 1-ый пункт
a[1]:=a[imax];
a[imax]:=p;
p:=a[2]; // 2-ой пункт
a[2]:=a[imin];
a[imin]:=p;
writeln();
for i:=1 to n do begin
write(a[i]:3);
end;
end.
дплашасллвал совгашдмосов