>
var i, j: int;
begin
for i: = 0 to n do
for j: = 0 to n do
if i = j then E [i, j]: = 1 else E [i, j]: = 0;
end; end E
procedure Rmatr (var a, b, c: matr; n, m: int);
var i, j: int;
begin
for i: = 0 to n do
for j: = 0 to m do
c [i, j]: = a [i, j]-b [i, j];
end; Rmatr
procedure obrmatr (Var AIS, AP: matr; n: int);
var i, j, k, l: integer;
a: matr;
begin
a: = AIS;
n: = n-1;
for k: = 0 to n do begin
for j: = 0 to n do
if (J <> k) then AP [k, j]: =-a [k, j]/a [k, k];
for i: = 0 to n do
if (I <> k) then AP [i, k]: = a [i, k]/a [k, k];
for i: = 0 to n do
for j: = 0 to n do
if (I <> k) and (j <> k)
then AP [i, j]: = a [i, j]-a ​​[i, k] * a [k, j]/a [k, k];
AP [k, k]: = 1/a [k, k]; a: = AP;
end;
end; end obrmatr
procedure matrvec (var b: matr; var c, x: vec; n: int);
var i, j: int;
begin
for j: = 0 to n-1 do begin
x [j]: = 0;
for i: = 0 to n-1 do
x [j]: = x [j] + b [i, j] * c [i]
end;
end; end matrvec
{ТІЛО ПРОГРАМИ}
begin
clrscr;
readvec (C, 'C', 2);
readmatr (A, 'A', 2,2);
readmatr (A_1, 'Z', 2,2);
Em (e, 2); rmatr (e, a, br, 2,2); rmatr (e, a_1, br_1, 2,2); obrmatr (br, b, 2); obrmatr (br_1, b_1, 2); matrvec (B, C, x, 2); matrvec (B_1, C, x_1, 2); matrvec (A, x, ax, 2); matrvec (A_1, x_1, ax_1, 2);
if (Ax [0] <= c [0]) and (ax [1] <= c [1]) then
writeln ('Економіка матриця A - ефективна') else
writeln ('Економіка матриця A - не ефективна');
if (Ax_1 [0] <= c [0]) and (ax_1 [1] <= c [1]) then
writeln ('Економіка матриця A_1 - ефективна') else
writeln ('Економіка матриця A_1 - не ефективна');
readln
write matr (B, 'B', 2,2);
write matr (B1, 'Z', 2,2);
write vec (x, 'x' .2);
write vec (x1, 'y', 2);
end.
{Закінчення програми}
1.Процедура введення вектора
Введення вектора X розмірністю n
Для I від n до n-1 з кроком 1 робити
Ввести значення елемента масиву X [i]
2.Процедура виведення вектора
Висновок вектора X розмірністю n
Для i від 0 до n-1 з кроком 1 робити
Вивести вектор X [i; j]
3.Процедура введення матриці
