Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 подсчитать колличество элементов массива которые делятся на 2

{ FreePascal }
program test;
var
a : array[1..15] of byte;
i, n , c: byte;

begin
randomize;
writeln('Массив:');
for i:=1 to 15 do
begin
a[i] := random(90-30+1)+30;
write(a[i], ' ');
end;

writeln;
writeln;
writeln('Список элементов, делящихся на 2:');
c:=0;
for i:=1 to 15 do begin
n:=a[i];
if (n mod 2 = 0) then begin
write (a[i], ' ');
inc(c);
end;
end;
writeln;
writeln;
writeln('Найдено ', c, ' элементов массива, которые делятся на 2');

end.

Объяснение:

Возводить в квадрат надо не отдельно правую и левую части, а разность между левой и правой частями системы (по каждому уравнению отдельно). Потом эти квадраты разностей просуммировать.

Получится функция квадратов невязок системы, которую и нужно минимизировать Поиском решения.

Поскольку эта функция является сумой квадратов,  она не отрицательная для всех значений аргументов, а ее минимальное значение == 0.

Поэтому минимизировать функцию квадратов невязок системы означает - найти такое значение переменных, при которых значение функции невязок равняется 0. Если удастся найти такое решение, то это и будет решением системы.

У Вас на картинках выписана эта функция, но не показано, как Вы применяете Поиск решения для минимизации этой функции.

Написал на С++

Объяснение:

Код:

#include <iostream>//для ввода - вывода

#include <windows.h>//для русской раскладки

using namespace std;

int main()

{

SetConsoleCP(1251);//подключаем русскую раскладку

SetConsoleOutputCP(1251);

int x, y, n;

cout << "Введите x: ";

cin >> x;

cout << "Введите y: ";

cin >> y;

cout << "Введите n: ";

cin >> n;

if (x == 0 && y == 0)

 cout << "Точка находится в начале координат" << endl << endl;

else

 cout << "Точка не находится в начале координат" << endl << endl;

cout << "Все значения y по формуле y=2x-5:" << endl;

for (int x = 1; x < n; x++)

{

 cout << 2*x - 5 << " ";

}

system("pause");//задержка консоли

return 0;

}