Pascal/delphi : начиная от центра, обойти по спирали все элементы квадратной матрицы размером 13х13, распечатывая их в порядке обхода.

1) var a: array[1..10000] of longint; n,i,min,max: longint; begin readln(n); for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =2 to n do begin if (a[i]> max) then max: =a[i]; if (a[i]< min) then min: =a[i]; end; writeln(max-min); end. 2) var a: array[1..10000] of longint; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do if (a[i]> 5) then write(a[i],' '); writeln; end. 3) var a: array[1..10000] of longint; i,n: longint; begin readln(n); for i: =1 to n do read(a[i]); writeln(0); end.

Const n=10; var a: array[1..n] of integer; max,min,imax,imin,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51);   write(a[i],' ');   end; writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =2 to n do   begin   if a[i]> max then begin max: =a[i]; imax: =i; end;   if a[i]< min then begin min: =a[i]; imin: =i; end;   end; writeln('max = ',max,'   min = ',min); if imax< imin   then for i: =imax+1 to imin-1 do a[i]: =a[i]*a[i]   else for i: =imin+1 to imax-1 do a[i]: =a[i]*a[i]; for i: =1 to n do write(a[i],' '); writeln; end. пример: 26 40 11 16 40 30 16 40 3 25  max = 40   min = 3 26 40 121 256 1600 900 256 1600 3 25