// PascalABC.Net 3.0, сборка 1066
begin
var a:=MatrixRandom(2,4,-25,25);
Writeln('Исходная матрица: ',a);
var s:=0;
for var i:=0 to 1 do
for var j:=0 to 3 do
s+=a[i,j];
Writeln('Сумма элементов равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]]
Сумма элементов равна -58
Program aliona;
var x,y,z:integer;
max,sr,min:integer;
begin
writeln('vvedite x ,y,z');
readln(x ,y ,z);
if (x>y) and (x>z) and (z>y) then
begin
max:=x;
sr:=z;
min:=y;
end;
if (y>z) and (y>x) and (x>z) then
begin
max:=y;
sr:=x;
min:=z;
end;
if (z>y) and (z>x) and (y>x) then
begin
max:=z;
sr:=y;
min:=x;
end;
writeln(max,' ',sr,' ',min);
readln;
end.
Var a:real;
begin
writeln('Введи длину ребра');
readln(a);
writeln(a*a*a);
end.