1) В масиві А[14] знайти найбільший і найменший елементи та замінити…

1) vara: array [1… 14] of integer; i,ma,mi,s: integer; beginfor i: =1 to 14 doread (a[i]); ma: =1; mi: =1; for i: =2 to 14 do beginif a[i]a[ma] thenma: =i; end; for i: =1 to 14 do beginif (i <> ma) and (i <> mi) thens: =s+a[i]; end; s: =s div 12; a[ma]: =s; a[mi]: =s; for i: =1 to 14 dowrite (a[i], '); end.2) varc: array [1… 3,1… 4] of real; i,j,f,k: integer; s: real; beginfor i: =1 to 3 do beginfor j: =1 to 4 doreadln (c[i,j]); end; readln (k); readln (f); for j: =1 to 4 do begins: =c[f,j]; c[f,j]: =c[k,j]; c[k,j]: =s; end; for i: =1 to 3 do beginfor j: =1 to 4 dowrite (c[i,j]); writeln ('); end; end.