Const
m = 6;
n = 4;
var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n] of longint;
p: longint;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(100) - 50;
write(a[i, j]:4)
end;
writeln
end;
writeln('Результирующий массив');
for j := 1 to n do
begin
p := 1;
for i := 1 to m do p := p * a[i, j];
b[j] := p;
write(b[j], ' ')
end;
end.
Тестовый пример:
Исходный массив
-22 -23 -14 16
-17 42 -13 19
-35 9 -47 -7
23 -9 19 25
3 -7 -31 43
15 42 40 0
Результирующий массив
-13548150 -23004324 201532240 0
<span>Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В
след клетке сложите весь объём так, вставкой математической функции,
потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN</span>
1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.