Основанием наклонного параллелепипеда ABCDA1B1C1D1 служит ромб ABCD, АС = 40, BD = 30, АА1=2√17, угол A1AD – угол A1AB < 90°.

Решение смотри во вложении

Const
n=4;
m=4;
var sum,i,j:integer;
mass:array[1..n , 1..m] of integer;
begin
writeln('Введите числа');
for i:=1 to n do
begin
for j:=1 to m do
begin
mass[i,j]:=random(60)-20;
write('mass[',i,',',j,']= ',mass[i,j]);
writeln;
end;
end;
for j:=1 to m do
if (mass[3,j]>0) then sum:=sum+mass[3,j];
writeln('Сумма третьего столбца равна ',sum);
end.