2 раза
Объяснение:
var
a : array [1..6] of integer= (3,2,5,1,7,2);
k, s, m : integer;
begin
m := a[1];
s := 0;
for k:=2 to 6 do
if m < a[k] then begin
m := a[k];
inc(s)
end;
writeln(' s = ', s)
end.
