Помогите сделать блок-схему для этого кода : var a:array [1..10] ...

Admin

Помогите сделать блок-схему для этого кода : var a:array [1..10] of integer; i:integer; max:byte; counter:integer; begin max:=0; for i:=1 to 10 do begin a[i]:=random(15); write(a[i], ' '); end; writeln; for i:=1 to 10 do if a[i] > max then begin max:=a[i]; counter:=i; end; writeln('Максимальный порядок массива:', max); writeln('Его порядковый номер:', counter); end.