Поменяйте местами минимальные и максимальные элементы массива. ()

Var a,min,max,i1,i2,i; m: array[1..10000] of longint; begin min: =1000000; readln(a); for i: =1 to a do begin read(m[i]); if m[i]> max then begin max: =m[i]; i2: =i; end; if m[i]< min then begin min: =m[i]; i1: =i; end; end; a: =m[i1]; m[i1]: =m[i2]; m[i2]: =a; end.

Program primer; var,      n,i,max,z: integer; begin        max: =0;         for i: =1 to 10 do begin              read(n);               if(n mod 10 = 4) then begin                    inc(z);                     if(max< n) then max: =n;               end;         end;         if(z> 0) then writeln(max)              else writeln('no'); end.

Program primer; var        n,i,max,z: integer; begin        max: =0;         for i: =1 to 10 do begin            read(n);             if(n mod 10 = 4) then begin                    inc(z);                     if(max< n) then max: =n;             end;         end;         if(z> 0) then writeln(max)            else writeln('no'); end.