Pascal abc
<em><u>Проверка</u></em>
-29 13 -23 -20 10 13 -23 -1 30 45
кол-во полож=5<span>
</span>
===== PascalABC.NET =====
begin
var A := ReadArrInteger('Введите 8 целых чисел:', 8);
A.Println;
var B := ArrGen(8, i -> i * i, 1);
B.Println;
var C := ArrRandom(8, -99, 99);
C.Println;
end.
Примечание: Если все три массива надо вывести в одну строку, вместо A.Println и B.Println указать A.Print и B.Print
Уравнение будет иметь 4 решения.Это видно из рисунка