Розв’язок задачі з Абрамова №429

Всі умови | Умова: Дано натуральні числа n, m, цілі числа a1, ..., an, b1, ..., bm, c1, ..., c30. отримати.... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №429)

program pr429;

const
  n = 10;
  m = 5;
type
  intArray = array of integer;
var 
  a, b, c : intArray;
  l : integer;
 
  procedure read_array(var x : intArray; k : integer);
	var i: integer;
  begin
	setLength(x, k);
    for i := 0 to length(x) - 1 do
    begin
      write('x[',i+1,'] = ');
      readln(x[i]);
    end;
    writeln('');
  end;
  
  function min_array(x : array of integer) : integer;
    var i : integer;
  begin
    min_array := 9999;
    for i := 0 to length(x) - 1 do
    begin
      if (min_array > x[i]) then
        min_array := x[i];
    end;
    
  end;

  function max_array(x : array of integer) : integer;
    var i : integer;
  begin
    max_array := 0;
    for i := 0 to length(x) - 1 do
    begin
      if (max_array < x[i]) then
        max_array := x[i];
    end;
  end;  

begin
  // enter data to m
  writeln('Enter A');
  read_array(a, n);
  writeln('Enter B');
  read_array(b, m);
  writeln('Enter C');
  read_array(c, 30);

  
  if abs(min_array(a)) > 10 then
    l := min_array(b) + min_array(c)
  else
    l := 1 +  sqr(max_array(c));

  writeln('L = ', l);
  readln;
end.