Задача е 1. Составьте алгоритм: Бассейн имеошей форму Пря 1,0 угольника со сторонами А метров и в метров и высотой Н метров нато наполнить водой, но не До края, а оставить от поверхности бассейна 15 см незаполненной, причем цена 1л Үрублей. Составьте алгорити и програму. которая определит, сколько Воды надо залить и сколько рублей на это понадобится. 1. По формуле найти объем Прямоугольника, но с начало от высоты предварительно отнять 15см переводя это в метры. 2. Объем в литрах кубических умножить на цену 1 литра кубического
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(9, 9, 10, 99);
PrintMatrix(a);
var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.