Var a: array[1..50] of integer; max, maxi: integer; begin Randomize; for var i := 1 to 50 do a[i] := Random(1, 1000); writeln(a); max := a[1]; maxi := 1; for var i := 1 to 50 do if a[i] > max then begin max := a[i]; maxi := i; end; a[maxi] := 0; writeln('Максимальный был на ', maxi, ' месте и равнялся ', max); writeln(a); <span>end.</span>