{***************************************************************************}
{ Сибирский Государственный Университет Путей Сообщения (СГУПС)             }
{ Кафедра "Информационные технологии транспорта"                            }
{                                                                           }
{ Лабораторная работа №8 Вариант 18. Задание 4.                             }
{ Тема "Модульное программирование. Процедуры-подпрограммы".                }
{                                                                           }
{ Выполнила:                                                                }
{ Cтудент группы МЛ-112, Фомин Александр Сергеевич                          }
{ Новосибирск, 2014                                                         }
{***************************************************************************}

Program Lab8_18; uses crt;

const size_n=5; size_m=7; size_ni=9; size_mi=11;

type vector=array [1..size_mi] of real; {Описываем тип для вектора}

var a,b,c,d,f:vector;
    max:real;

{----- Генерируем вектор Start -----}
Procedure GenerateVector(var x:vector; n:byte);
var i:byte;
Begin
for i:=1 to n do X[i]:=Random(51)-25.;
end;
{----- Генерируем вектор End -----}

{----- Выводим вектор на экран Start -----}
Procedure OutPutVector(x:vector; name:string; n:byte);
var i:byte;
Begin
Write('--------------------------------------------------------------------------------');
Writeln(' Вектор '+Name+':');
for i:=1 to n do Write(X[i]:7:2);
Writeln;
end;
{----- Выводим вектор на экран End -----}

{----- Поиск максимального элемента вектора Start -----}
Function SearchMaximum(x:vector; n:byte):real;
var max:real;
    i:byte;
Begin
Max:=X[1]; {Принимаем за максимум}
for i:=2 to n do if (X[i] > Max) then Max:=X[i];
SearchMaximum:=Max; {Присваиваем}
end;
{----- Поиск максимального элемента вектора End -----}

{----- Объединяем все процедуры в одну Start -----}
Procedure CombineVector(var x:vector; var max:real; n:byte; name:string);
Begin
GenerateVector(X,N);
OutPutVector(X,Name,N);
Max:=SearchMaximum(X,N)
end;
{----- Объединяем все процедуры в одну End -----}

Begin clrscr;
Randomize;
CombineVector(A,F[1],Size_N,#65);
CombineVector(B,F[2],Size_M,#66);
CombineVector(C,F[3],Size_Ni,#67);
CombineVector(D,F[4],Size_Mi,#68);

Write('--------------------------------------------------------------------------------');
Writeln(' Максимальный элемент вектора F[4]: ',SearchMaximum(F,4):7:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.