1)написать процедуру, которая вычисляет объём и площадь поверхности параллелепипеда.В программе трижды обратиться к процедуре и вычислить объём и площадь поверхности параллелепипедов :4х8х12 3,5х4,2х8,7 100х100х0,1
ВОт что у меня получилось procedure VS(a,b,c:real,var V, var S);
begin
V:= a*b*c;
S := 2*(a*b + a*c + b*c);
end;
а дальше получается нужно обратиться к это процедуре но вот как.
2)НАйти максимальные элементы одномерных массивов и их номера.Подпрограмму поиска максимума оформить в виде процедуры.Ввод массивов оформить черезе randomize. Что сделал я:
procedure degree(k:array of integer);
var i:integer; max:integer; imax:integer;
begin
max:=k[1];
imax:=1;
for i:=2 to 5 do
begin if k[i]>max then max:=k[i]; imax:=i;
end;
end;
var a:array[1..5] of integer;
b:array[1..5] of integer;
c:array[1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i]:2);
degree(a[i]);
end;
writeln;
for i:=1 to 5 do
begin
b[i]:=random(10);
write(b[i]:2);
degree(b[i]);
end;
writeln;
for i:=1 to 5 do
begin
c[i]:=random(10);
write(c[i]:2);
degree(c[i]);
end;
writeln(a[i],b[i],c[i]);
readln;
end.

1)

VS(1,2,1); - обращение.

2) сделал так сделал. В чем проблема?

Можешь в самой процедуре сделать вывод максимального значения