орюється в результаті взяття цього стовпчік за елєменти вектора у зворотнього порядку}
else х [і]: = а [і, і] + а [і, п +1- і]; {ЯКЩО адреси найбільшого елемента буде хлопця, то елемент вектора буде утворюватіся в результаті суми відповідніх ЕЛЕМЕНТІВ головної та допоміжної діагоналі матріці}
writeln ('х [ , І, ] =', х [і ]: 5:3); {Виведення Щойно Утворення елемента вектора}
end;
writeln (' -------- Funkciy -------- ');
write ('c ='); {Виведення ПОВІДОМЛЕННЯ} read (c ); {введені номери заліковкі та номери за списком у групі}
write ('b ='); {Виведення ПОВІДОМЛЕННЯ} read (b );
мах: = х [1]; min: = х [1]; {Змінні тах: = х [1]; ТІП: = х [1] отримуються Значення Першого елемента вектора}
if з {порівняння значень змінніх з та b} then begіп {ЯКЩО c
For i: = 1 to n do beginmax x [i] then min: = x [i];; : = max + min endU: = x [l] * x [n]; { ЯКЩО c> = b то значення Функції буде утворена в результаті добутку Першого та последнего ЕЛЕМЕНТІВ вектора}
writeln ('U =', U: 5:3); {Виведення Значення Функції на екран}
repeat until keypressed;.
вектор квадратна матриця алгоритм
3. Модуль глобальних опісів
Global; = 10; = array [l .. len, l .. len] of real; = array [l .. len] of real;.
4. Сервісний модуль обслуговування матріці
MODUL22; global; CreateMatrix (n: byte; var M: Tmatr); OutputMatrix (n: byte; var M: Tmatr); Ou...
