Функции и подпрограммы

[Umkaa]

Для однотипных ,повторяющихся в реализуемом алгоритме вычислительных операций (нахождения сумм,произведение, количество , экстремальных значений , операции над векторами матрицы ...и др) организовать подпрограммы .
№1.даны четыре вектора-четыре одномерных массива:
А=2,5 ; -0,3 ; 5,6 ; 9,4 ; -8,0 ;
B=0,1 ; 7,25 ; 1,12 ; -4,7 ; 3,14 ;
C=1,1 ; 2,87 ; -5,5 ; -3,3 ; 6,0 ; 7,25 ; -0,15 ; 9,1 ; 8,0 ; 4,5 ;
D=9,15; -1,8 ; 6,33 ; -7,7 ; 5,1 ; -0,5 ; -2,75 ; 4,8 ; 2,2 ; 9,9 ;

Задание. Сформировать новый массив из максимальных значений элементов массивов задания №1 и найти у него максимальный элемент.

[Alex11223]

Тут не решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

function max(p:array of real):real;
var i:integer;
begin
   Result:=p[Low(p)];
   For i:=Low(p)+1 to High(p) do
      If Result<p[i] then
         Result:=p[i];
end;

const a:array[1..5] of real=(2.5,-0.3,5.6,9.4,-8);
      b:array[1..5] of real=(0.1,7.25,1.12,-4.7,3.14);
      c:array[1..10] of real=(1.1,2.87,-5.5,-3.3,6,7.25,-0.15,9.1,8,4.5);
      d:array[1..10] of real=(9.15,-1.8,6.33,-7.7,5.1,-0.5,-2.75,4.8,2.2,9.9);
var p:array[1..4] of real;
    i:integer;
begin
   p[1]:=Max(a);
   p[2]:=Max(b);
   p[3]:=Max(c);
   p[4]:=Max(d);
   For i:=1 to 4 do
      Write(p[i]:1:2,'  ');
   Writeln;
   Writeln(Max(p):1:2);
   Readln;
end.

[digitalis]

Сообщение от Alex11223

Тут не решатель задач.

Ну это кто как понимает -намякиваю на пост #3