Найти максимум из x[1]..x[n].

Решение.

          i := 1; max := x[1];
          {инвариант: max = максимум из x[1]..x[i]}
         
while i <> n do begin
          | i := i + 1;
          | {max =
максимум из x[1]..x[i-1]}
          | if x[i] > max then begin
          | | max := x[i];
          | end;
          end;


2009-12-04 • Просмотров [ 1076 ]