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

Program Lab8_18; uses crt;

const size_n=10; {Размер массива}

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

var a:vector;

{----- Генерируем вектор Start -----}
Procedure GenerateVector(var x:vector; n:byte);
var i:byte;
Begin
for i:=1 to n do X[i]:=Random(21)-10.;
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 SubVector(var x:vector; sub:real; n:byte);
var i:byte;
Begin
for i:=1 to n do if (X[i] > 0) then X[i]:=Sub;
end;
{----- Замена положительных элементов вектора End -----}

Begin clrscr;
Randomize;
GenerateVector(A,Size_N);
OutPutVector(A,#65,Size_N);
SubVector(A,SearchMaximum(A,Size_N),Size_N);
OutPutVector(A,#66,Size_N);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.