[irina74]

1. Массивы

Даны действительные числа a1, a2, …an. Требуется домножить все члены последовательности a1, a2, …an на квадрат ее наименьшего члена, если ai<0, и на квадрат ее наибольшего члена, если аi>= 0 (1 < i < n).

2.Строки

Составить программу преобразования натуральных чисел, записанных в римской нумерации, в десятичную систему счисления.

Задачи нужно решить с использованием подпрограмм

Заранее всем большое спасибо!!!!!!!!!

[lmikle]

1. проход по массиву в 3х процках: поиск макс, поиск мин, умножение.

Код:

var
  A : Array Of Double;

procedure GetMax : Double;
var
  I : Integer;
begin
  Result := 0;
  For I := Low(A) To High(A) Do
    If A[i] > Result Then Result := A[i];
end;

procedure GetMin : Double;
var
  I : Integer;
begin
  Result := 0;
  For I := Low(A) To High(A) Do
    If A[i] < Result Then Result := A[i];
end;

procedure Mult;
var
  I : Integer;
  AMax, AMin : Double;
begin
  AMax := Sqr(GetMax);
  AMin := Sqr(GetMin);
  For I := Low(A) To High(A) Do
   If A[i] > 0 
     Then A[i] := A[i] * AMax
     Else A[i] := A[i] * AMin;
end;

Ну заполнение массива и его вывод сама напишешь.

2. Напиши в каком виде предоставляется число (и какие из символов используются). Ну и соответсвие символов числам, а то, честно говоря, я не помню сколько будет в десятичной M и L.