Напишите блок-схему к двум программам: var a: array [1..12] of integer; i: byte; min, indexmin: integer; begin i : = 1; indexmin : = 1; while (i < 13) do begin write('a[',i,'] = '); readln(a[i]); if i = 1 then min : = a[1] else if (a[i] < min) then begin min : = a[i]; indexmin : = i; end; i : = i + 1; end; i : = 0; repeat i : = i + 1; if (i = indexmin) then a[i] : = 1; write(a[i]: 4); until (i = 12); end. var a: array [1..5,1..4] of integer; i, j, min, imin, jmin: integer; begin for i: =1 to 5 do for j: =1 to 4 do a [i,j]: =random(21)+1; for i: =1 to 5 do begin for j: =1 to 4 do write (a[i,j]: 4); writeln; end; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to 5 do for j: =1 to 4 do if a[i,j] writeln; for j: =1 to 4 do write (a[imin,j],' '); writeln; for i: =1 to 5 do write (a[i,jmin],' '); end.