Дана программа. Определить результат выполнения. program N02; const A: array [1..10] of integer = (1, 36, 2, 18, 3, 12, 4, 9, 6, 6); var i, k: integer; begin k:=0; for i:=1 to 7 do if A[i] write(k) end. Результат:

var

       a: array [1..30] of Integer;

       min, max: Word;

       i: Byte;

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (20000);

       

       max := a[1];

       min := a[1];

       

       for i := 2 to 30 do begin

               if a[i] > max then

                       max := a[i];

               if a[i] < min then

                       min := a[i]

       end;

       Write (min + max)              

end.    

Есть приложение FlowChart для создания блок-схем из кода, я его и использовал.