o (f2, Name_region [i], S1 [i]: 4:1);
writeln (f2);;
{! Функція, що обчислює суму по головній діагоналі!}
Function SumDiag (n: byte; A: mas): real; i: byte; S2: real;: = 0; i: = 1 to n do: = S2 + A [i, i ];: = S2;
end;
{! Процедура находжені вантажів у місцевому сполученні!}
procedure pb_pv (n: byte; A: mas; var imin: byte; var min: real); z: real;: = A [1,1]; imin: = 1; i: = 1 to n doj: = 1 to n do (i = j) and (min> A [j, j]) then: = A [j, j];
imin: = j;;;
{! Розділ операторів головної програми!} (f2, 'g: Навчання Воробей Інформатика Genrih1111.txt');
rewrite (f2); _region [1]: = 'Ліда'; _region [2]: = 'Рось'; _region [3]: = 'Гродно'; _region [4]: ​​= ' Мости '; _region [5]: =' Кобрин '; _region [6]: =' Гомель '; _region [7]: =' Жлобин '; _region [8]: =' Мінськ '; _region [9]: =' Орша ';
Vvodn; (n, A); (f2, 'Таблиця № 1-Вихідні перевезення на кожному регіоні');
VIVOD (n, A); (n, A);
writeln (f2, 'Сума по головній діагоналі =', SumDiag (n, A): 4:1);
pb_pv (n, A, imin, min);: = min-min * 0.07; (f2, 'мінімальна перевезення =', min: 8:2, 'в регіоні', Name_region [imin ]);
writeln (f2, 'зменшення вантажопотоку всередині цього регіону на 7% =', z: 4:0);
A [imin, imin]: = A [imin, imin] * 0.93;
writeln (f2, 'Таблиця № 2-Перевезення на кожному регіоні після зменшення вантажопотоку всередині регіону з мінімальною перевезенням на 7%');
VIVOD (n, A); (f2);
end.
.3 Результати рішення задачі
Доброго дня! Зараз вам буде запропоновано ввести кількість регіонів між якими осуществляються вантажоперевезення
Кількість регіонів не повинно перевищувати 9
Введіть, будь ласка, кількість регіонів
Результати будуть збережені в текстовому файлі Genrih1111
n = 9
В
2. Рішення завдання засобами MS EXCEL
.1 таблиця вихідних даних
Таблиця 1-Таблиця перевезень вантажів
з наЛидаРосьГродноМостыКобринГомель ЖлобінМінскОршаІтого прибыло108017393087740837908380082720843508301082610855708
2.2 Виконання розрахунків
55708Cумма кількості вантажів, що перевозяться у місцевому сполученні за всіма регіонам1912Мінімальное кол-во перевезеного вантажу в місцевому сообщенііКобрінРегіон з мінімаль...
