writeln ('максимальний від'ємний елемент масссіва А =', s: 6:2);
writeln;
close (fa);
end;
{Формування масиву В і запис його в файл М2.txt}
Procedure form_b (a: mas; var b: mas; var n: integer);, i_f: integer;: real; (fb, 'M2.txt'); (fb);: = 0; i: = 1 to 35 doa [i]> s then: = n +1; [n]: = a [i]; (fb, b [n]);;; (fb);;. Mod2 ; Pec1 (k_p: integer; n: integer);
{Процедура друку масивів в 7 стовпців}
Procedure Pec1 (k_p: integer; n: integer); i, j, d, k: integer;: file of real;: char;: real; k_p = 1 then ('Масив A');: = ' A '; (f,' M1.txt '); (' Масив B ');: =' B '; (f,' M2.txt ');; (f);: = 0; k: = 1; not eof (f) do (f, p); (c, '[', k: 2, '] =', p: 6:2, '');: = d +1; k: = k +1 ; d = 5 then; d: = 0;;; (f);;. Mod3; Sort_v (k_p: integer; n: integer); Sort_u (k_p: integer; n: integer);
{Сортування масиву за зростанням}
Procedure Sort_v (k_p: integer; n: integer);, j: integer;: char;, max: real;: array [1 .. 35] of real;: file of real; k_p = 1 then: = 'A'; (f, 'M1.txt');: = 'B'; (f, 'M2.txt');; (f); i: = 1 to n do (f, p); [i ]: = p;; (f); i: = 1 to n-1 doj: = i +1 to n dov [j]
{Сортування масиву за зменшенням}
Procedure Sort_u (k_p: integer; n: integer);, j: integer;: char;, min: real;: array [1 .. 35] of real;: file of real; k_p = 1 then: = 'A'; (f, 'M1.txt');: = 'B'; (f, 'M2.txt');; (f); i: = 1 to n do (f, p); [i ]: = p;; (f); i: = 1 to n-1 doj: = i +1 to n dov [j]> v [i] then: = v [j]; v [j]: = v [i]; v [i]: = min;; (f); i: = 1 to n do (f, v [i]); (f);;. Mod4; Pec2 (k_p: integer; n: integer);
{Процедура друку масиву в 6 рядків}
Procedure Pec2 (k_p: integer; n: integer); i, j, d, k, i1: integer;: file of real;: char;: array [1 .. 35] of real;: real; k_p = 1 then ('Відсортований масив A');: = 'A'; (f, 'M1.txt');
writeln ('Відсортований масив B');
c: = 'B'; (f, 'M2.txt');; j: = 1 to 3 do: = j-1; reset (f); i
end;
end.
Результат виконання програми
В
