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

Всі умови | Умова: Дано натуральні числа 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.